After this line
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

Add this

Sheets("master").Range("A1:C1").Copy .Range("A" & lastrow+1)



"Darin Kramer" wrote:



Howdie!

Using Rons code below, the last row is correctly identified, (and pops
up in the msg box), but I want to copy some data (from sheet called
"master", say cells a1:c1) into the three cells directly beneath the
last row... Any ideas...?

Sub LastCellInOneColumn()

Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
MsgBox LastRow

End Sub

Regards

Darin

*** Sent via Developersdex http://www.developersdex.com ***