VBA Code:
Sub t3()
Dim c As Range, sh1 As Worksheet, sh2 As Worksheet, col As Long
Set sh1 = Sheets("A")
Set sh2 = Sheets("Import")
With sh1
For Each c In .Range("J2", .Cells(Rows.Count, 10).End(xlUp))
With Sheets(CStr(c.Value))
.Range(.Range("A9:C9"), .Range("A9:C9").End(xlDown)).Copy
End With
If sh2.Range("N1") = "" Then
sh2.Range("N1").PasteSpecial xlPasteValues
Else
sh2.Cells(Rows.Count, 14).End(xlUp)(2).PasteSpecial xlPasteValues
End If
Application.CutCopyMode = False
Next
End With
End Sub
.Range(.Range("A9:C9"), .Range("A9:C9").End(xlDown)).Copy
how to edit that line to copy only A9 and C9 .End(xlDown)), just without B column and value from C4 cell?