Moving to next cell down

[Guest_imported]

Help - i'm a beginner!

Could someone insert a line into this macro so that it move to the cell below after it as completed it operation.

Private Sub PlugRateP1_Click()
ActiveCell.FormulaR1C1 = "p1"
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
End Sub

The run button is on a userform. Can anyone insert a line that leave excel working rather than the userform?

Cheers

 

[kevinclark]

Private Sub PlugRateP1_Click()
ActiveCell.FormulaR1C1 = "p1"
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
ActiveCell.Offset(1, 0).Select

End Sub

 

[dwilson01]

This will move down 1 row and stay in the same column.

ActiveCell.Offset(1, 0).Activate