shorten this code

If Range("A2") <> "" Then
Range("A2").Select
ActiveCell.Offset(2, 4).Activate
ActiveCell.Value = "SITE"
ActiveCell.Offset(1, 0).Activate
ActiveCell.Value = "SITE"
ActiveCell.Offset(1, 0).Activate
ActiveCell.Value = "SITE"
End If

If Range("A7") <> "" Then
Range("A7").Select
ActiveCell.Offset(2, 4).Activate
ActiveCell.Value = "SITE"
ActiveCell.Offset(1, 0).Activate
ActiveCell.Value = "SITE"
ActiveCell.Offset(1, 0).Activate
ActiveCell.Value = "SITE"
End If

If Range("A12") <> "" Then
Range("A12").Select
ActiveCell.Offset(2, 4).Activate
ActiveCell.Value = "SITE"
ActiveCell.Offset(1, 0).Activate
ActiveCell.Value = "SITE"
ActiveCell.Offset(1, 0).Activate
ActiveCell.Value = "SITE"
End If

this code runs for A17 , A22 and so on (every five cells) and at the moment there is thousands of block code, to much hassle can I shirk it ?

Please Login or Register  to view this content.