Makro excel VB

Sub Makro1()
ActiveCell = “text na 1 radek aktivni bunky.”
ActiveCell.Offset(1, 0).Select
ActiveCell = “text na 2 radek pod aktivni bunkou.” 
End Sub

Sub Makro2()
ActiveCell = “5454544”
ActiveCell.Offset(1, 0).Select
ActiveCell = “3565555555 “

End Sub