Vba - paste in first empty column cell

[tirk82]

Hi there.

I need the code to paste my selection in worksheet SORT, into the first available cell in column A. Intention is not to overwrite existing values in column A.

Thanks!


'
Sheets("tis").Select
Range("AC2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("SORT").Select
'I need the code to paste my selection in the first available empty cell in column A, so I don't overwrite any existing values in column A


End Sub

 

[VoG]

Try

Sheets("tis").Select
Range("AC2").Select
Range(Selection, Selection.End(xlDown)).Copy Destination:=Sheets("SORT").Range("A" & Rows.Count).End(xlUp).Offset(1)

 

[tirk82]

Thank you! This works!

Try

Sheets("tis").Select
Range("AC2").Select
Range(Selection, Selection.End(xlDown)).Copy Destination:=Sheets("SORT").Range("A" & Rows.Count).End(xlUp).Offset(1)