Change destination range to first blank cell

[Dojorgen]

Hey guys

How can I change the Destination: to the first blank cell in Column A? Instead of "$A$1"

 

[My Aswer Is This]

Try something like this:

Sub Copy_Too()
'Modified  10/16/2018  7:01:33 PM  EDT
Dim Lastrow As Long
Lastrow = Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets(1).Range("C1").Copy Destination:=Sheets(1).Cells(Lastrow, 1)
End Sub

 

[Michael M]

Maybe this.
When the file is opened, the active cell will be the first blank cell in Col "A"

Sub workbook_open()
Range("A" & Cells(Rows.Count, "A").End(xlUp).Row + 1).Activate
End Sub

 

[Dojorgen]

got it thank you works great

 

[My Aswer Is This]

Which code did what you wanted?
I saw nothing about wanting this on Workbook Open.

 

[Michael M]

@MAIT....just assumption !.... but that could have been waaaay wrong...