Hi

Try this:


Sub Way()
Dim LastRow As Long
Dim TargetSheet As String

TargetSheet = "Sheet1" ' Change to suit
LastRow = ActiveWorkbook.Worksheets(TargetSheet) _
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Worksheets(TargetSheet).Range("B" & LastRow).Select
'Call your Macro here
End Sub

Regards,
Per

"Kell2604" skrev i meddelelsen
...
Thanks for your help. I have just now gotten around to implementing this
and
am having a little trouble. I need to paste my data in the first empty
cell
in column B. How do I get the code to not just find the first empty cell
but
then to move over 1 column before pasting.

When I run it as it is...it navigates to a cell in the middle of all of my
current data. (A31 to be exact), not to the 1st empty cell. The first
empty
cell would be A287

Thanks again!!

"Office_Novice" wrote:

Reduex....

Option Explicit

Sub Way()
Dim LastRow As Long
LastRow = ActiveWorkbook.Worksheets(1) _
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Range("A" & LastRow).Select
'Call your Macro here
End Sub

"Kell2604" wrote:

Is it possible to have a macro start at a cell in the next empty row??
The
number of rows change in my report and each time the macro runs it
would need
to navigate to the first cell in the first available row. I'm not sure
if
this is possible or not??

Thanks!!
Kelley