Need macro to go to next blank row, copy formulas into next row

[Pete]

Hi - really need a macro that allows users to go to the next blank row
(column B) and copy formulas into next row - where they enter new data.
Without a macro, I can use CTRL+END...
Any advice would be greatly appreciated, thanks in advance!

 

[John Bundy]

This will get you the row number of the last cell in column B with data
lastCell = Sheets("sheet1").Cells(Rows.Count, "B").End(xlUp).Row
lastcell + 1 of course would get you the first blank

 

[FSt1]

hi
sub copyformula()
Range("B1").End(xlDown).Copy
Range("B1").End(xlDown).Offset(1, 0).PasteSpecial xlPasteAll
End Sub

regards
FSt1

 

[Pete]

Cannot get this macro to work right - it copies cell Bx, then waits for you
to hit enter to paste?

I need to copy all hte formulas in last row into the next row, columns B to
AH.