Lotus {end}{up}

[Mike Callahan]

Lotus use -end-up- macro to insert data under the last field in a worksheet so I could list new data in sequence. In Excel, how do I do this in a Visual Basic macro?

 

[VoG]

This will return the last filled row in column A

Dim Lastrow As Long
Lastrow = Range("A" & Rows.Count).End(xlUp).Row

 

[Mike Callahan]

In sheet2 where ever the curser resides, the paste occures:

Sub Macro1()

Dim Lastrow As Long
Sheets("Sheet1").Select
Range("A4").Select
Selection.Copy
Sheets("Sheet2").Select
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Paste
End Sub

 

[VoG]

Try this - note that it is rarely necessary to Select something to work with it.

Sub Macro1()
Dim Lastrow As Long
Lastrow = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Sheet1").Range("A4").Copy Destination:=Sheets("Sheet2").Range("A" & Lastrow + 1)
Application.CutCopyMode = False
End Sub