Select rows after finding last cell

[Guest]

Hi

I have need to select all rows below the actice cell. I am able to locate the last cell with data and select the next cell.However, I need to select that row and all rows below that and make sure the row height is the same (12.75). I would like to select and resize the height of the rows all the way to the bottom, then import my data.

The The last cell (Active cell) when selected also changes depending on how much data has been copied into the worksheet

Thanks

Sam

 

[Dave Peterson]

Can you pick out a column that always has data?

Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range(LastRow + 1 & ":" & .Rows.Count).RowHeight = 12.75
End With

But isn't 12.75 the standard rowheight?

(I think I'd import the data, autofit the rowheight.)