Macro to enter a value, tab to next cell in the row, enter ...

[FirstVette52]

I recorded a macro to enter data in a cell, tab to the next cell and enter
data, tab to next cell, and enter data.

The problem is it runs in the cell it was recorded in, not whatever cell is
currently active. How do I modify the code to start in whatever cell is
currently active and then tab to whatever cell is to the right of that cell
and enter data... etc.

Here's the code:

Sub A_FILLIN()
'
' A_FILLIN Macro
' Fill-in the row with A May Joe, and then
' drop down to the next row/cell beneath A
'
' Keyboard Shortcut: Ctrl+Shift+A
'
ActiveCell.FormulaR1C1 = "A"
Range("B1").Select
ActiveCell.FormulaR1C1 = "May"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Joe"
Range("D1").Select
End Sub

Thanks for your help

 

[FirstVette52]

That puts the next value in a new row, but the next value needs to go in a
new column on the same row. Once all the values have been entered then it
needs to go to a new row.

Thanks for your help

 

[Jacob Skaria]

Sub A_FILLIN()
ActiveCell = "A"
ActiveCell.Offset(0, 1) = "May"
ActiveCell.Offset(0, 2) = "Joe"
ActiveCell.Offset(1, 0) = "B"
ActiveCell.Offset(1, 1) = "BMay"
ActiveCell.Offset(1, 2) = "BJoe"

End Sub

If this post helps click Yes

 

[FirstVette52]

That gets it in the second row, but the cell focus is still on the first cell
when the macro finishes. Is there some way to get it to move down to the
next row? I've figured out that I can use a variable for the Active Cell
address after the ' ActiveCell = "A" ' (something like rw =
ActiveCell.Address), and then set the range at the end to rw, but I havn't
figured out how to get it to the next row after that.

Thx!