Macro question

K

Kell2604

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
 
O

Office_Novice

Sub Way()
Dim LastRow as Long
LastRow = ActiveWorkbook.Worksheets(1).Cells(Rows.Count,1).End(xlup).Row

Range("A" & LastRow).Select
End Sub
 
O

Office_Novice

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
 
K

Kell2604

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!!
 
P

Per Jessen

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
 
Top