Allora, diciamo che l'intestazione la copi a mano una volta per tutte e lasciamo alla macro solo la copia della data e del contenuto della tabella.
Per questo ti dovrevve bastare una macro come questa:
- Codice: Seleziona tutto
Sub Sim2Invio()
Dim I As Long, dSh As Worksheet, iD As Long, myNext
'
Set dSh = Sheets("Invio") '<<< Il foglio verso cui si copia
'
dSh.Range("A7").Resize(dSh.Cells(Rows.Count, 1).End(xlUp).Row, 11).Clear
Sheets("SIM").Select
dSh.Range("A1").Value = Range("A1")
For I = 7 To Cells(Rows.Count, 1).End(xlUp).Row
If UCase(Cells(I, "L")) = "X" Then
myNext = dSh.Cells(Rows.Count, 1).End(xlUp).Row + 1: If myNext < 7 Then myNext = 7
Cells(I, 1).Resize(1, 11).Copy dSh.Cells(myNext, 1)
If Cells(I, "M") = 2 Then
dSh.Cells(myNext, 1).Resize(1, 11).Interior.Color = RGB(255, 0, 0)
Else
dSh.Cells(myNext, 1).Resize(1, 11).Interior.Color = RGB(255, 255, 255)
End If
End If
Next I
MsgBox ("Completato...")
End Sub
Va messa in un Modulo standard del vba (es Modulo1) e lanciata all'occasione, magari associandola per comodita' a un pulsante.
Fai sapere...