"Raleigh" wrote:



"Yngve" wrote:

Hi Raleigh
try this

Sub a()


With ActiveSheet
Dim LastRow As Double
'countt columns A
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Rows("1:" & LastRow).Select

End With
End Sub

Regards Yngve



Thank you I am going to try it out right now.

I am so sorry in the initial function there was an 'EntireRow.Delete' not an
'EntireRow.Select' so it would have looked like this..

With ActiveSheet
LastRow = .UsedRange.Rows.Count
..Range(.Cells(FirstRow, 1), .Cells(LastRow, 1)).EntireRow.Delete
End With

Should I still just make and attempt with the code you gave me and just
switch 'delete' with 'select'?