Excel: How to create Macro that moves to first empty row. 1

[Accel45]

I have a worksheet were I enter small amounts of data over and over.
I set up this macro to enter the data. (Actually I set up two macros: One for “Yes” and one for “No”)

Sub FillItIn()
Range("A3").Select
ActiveCell.FormulaR1C1 = "Joe Blow"
Range("B3").Select
ActiveCell.FormulaR1C1 = "Supervisor"
Range("C3").Select
ActiveCell.FormulaR1C1 = "Yes"
Range("D3").Select
End Sub

What I need is for the Macro to move to the first empty row on the worksheet before executing. As you can see my macro always places the data in the same three cells.
Any help will be appreciated….

Accel45

 

[SkipVought]

Hi,

VBA/macro question ought to be posted in the VBA Visual Basic for Applications (Microsoft) Forum707

Sub FillItIn()
    with Range("A65536").End(xlup).offset(1)
       .Value = "Joe Blow"
       .Offset(0,1).Value = "Supervisor"
       .offset(0,2).Value = "Yes"
    end with
End Sub

Skip,

_{[red]Be Advised![/red]
A wee deranged psychic may be runnin' around out there!
SMALL MEDUIM @ LARGE}

 

[KenWright]

And if you want even less lines......

Sub FillItIn()
    With Range("A65536").End(xlUp).Offset(1).Resize(1, 3)
       .Value = Array("Joe Blow", "Supervisor", "Yes")
    End With
End Sub

Regards
Ken..............

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission
----------------------------------------------------------------------------