Macro Edit

Is there a way please to edit the below Macro1 in order to run the same below commands but in any selected desired row number and not necessarily as listed below row 29 every time and still fill the listed below cells with the same shown data running the same Macro1?

Sub Macro1()
'
' Macro1 Macro
'

'
ActiveCell.FormulaR1C1 = "1111"
Range("C29").Select
ActiveCell.FormulaR1C1 = "AAA"
Range("D29").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("H29").Select
ActiveCell.FormulaR1C1 = "1:35:00 AM"
Range("B30").Select
End Sub