Editing range, copy two columns and cell

[bubsk]

       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?

 

[LazyBug]

Hello!

how to edit that line to copy only A9 and C9 .End(xlDown)), just without B column

Dim c As Long
c = Cells(Rows.Count, 1).End(3).Row
With ActiveSheet
Application.Union(.Range("A9:A" & c), .Range("C9:C" & c)).Copy
End With

value from C4 cell?

Dont see any mention of C4.