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

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!

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

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

regards
FSt1

"Pete" wrote:

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!

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

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
--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"Pete" wrote:

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!

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

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.

"FSt1" wrote:

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

regards
FSt1

"Pete" wrote:

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!