copy cell without range

[inajica]

I am trying to copy different cells ranges. I don't want to use the currentregion since I have adjacent cells that I don't want to copy. Is there a code that I can use without specifying a range, excecpt for the starting cell. For example, all data in column A starting at a4. Thank you.

[lucas]

Maybe:
[VBA]Option Explicit
Sub a()
Dim FinalRow As Long
'the -3 is to deal with the 3 spaces above A4
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row - 3
Range("A4").Resize(FinalRow, 1).Copy
Range("C4").PasteSpecial
End Sub[/VBA]

[inajica]

Maybe:
[vba]Option Explicit
Sub a()
Dim FinalRow As Long
'the -3 is to deal with the 3 spaces above A4
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row - 3
Range("A4").Resize(FinalRow, 1).Copy
Range("C4").PasteSpecial
End Sub[/vba]

Thanks for the code, it works great.