
Sub macro1()
Dim rng As Range
Dim cel As Range
Dim ur As Long
Dim lr As Long
lr = Worksheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Worksheets("Foglio1").Range("a7:a" & lr)
For Each cel In rng
ur = Worksheets(cel.Value).Cells(Rows.Count, 1).End(xlUp).Row
Range("a" & cel.Row & ":" & "g" & cel.Row).Copy Destination:=Worksheets(cel.Value).Range("a" & ur + 1)
Next cel
End Sub |
