Thanks i got the code to work
Code:
  wbkNew.Sheets(1).Range("L3").Activate         'DOMAIN_NAME
                 For i = 1 To wbkNew.Sheets(1).Range("A1").End(xlDown).Row - 2
                ActiveCell.Value = "GRK"
                ActiveCell.Offset(1).Activate
                Next i
                wbkNew.Sheets(1).Range("A1").Activate