how to fill cells after using offset

Well still not sure I do understand your problem properly but either this one or the next one?

Sub Fill2()
Range(ActiveCell, ActiveCell.Offset(3, 3)) = "Test"
End Sub

or

Sub Fill3()
Range(ActiveCell, ActiveCell.Offset(0, 3)) = "Test"
Range(ActiveCell, ActiveCell.Offset(3, 0)) = "Test"
End Sub

Alf