I am working on a Worksheet with several sheets. In the first one, I have a
series of lines that I need to copy to each of the other sheets, based on the
line.

The select criteria is no problem.

The problem is that I need to find out how to find the first blank row on
each of the sheets and paste the line for that sheet there. This is needed
to be done via a macro.

I know you can use ctr down down to get to the last line. However the macro
stores that exact cell as the range.

Does not consider row 1 if open or test for whether you have hit the
bottom of your sheet. This can be modified if needed.

Sub GetNextCell_row()
Dim Nextrow As Long
Nextrow = ActiveCell.SpecialCells(xlLastCell).Offset(1, 0).Row
MsgBox "Next open row = " & Nextrow
End Sub


hjyoungii wrote:
I am working on a Worksheet with several sheets. In the first one, I have a
series of lines that I need to copy to each of the other sheets, based on the
line.

The select criteria is no problem.

The problem is that I need to find out how to find the first blank row on
each of the sheets and paste the line for that sheet there. This is needed
to be done via a macro.

I know you can use ctr down down to get to the last line. However the macro
stores that exact cell as the range.