Multiple Offset - Insert into

[dj44]

folks goodday,

i would like to enter into my offsets.

But i am trying to insert into multiple offsets at same time eg

cells in E,F,G,H






Sub insertoffset()

Dim rng1 As Range
Dim rng2 As Range


Set rng1 = ActiveSheet.Range("D6:D106")

For Each rng2 In rng1

If InStr(1, oCell.Value, "[EMPTY]") > 0 Then rng2.Offset(, 1).Value = "[EMPTY]" " Cells E,F,G,H

End If
End If
Next

End Sub



im not sure if i need a loop of some sort

[NoSparks]

Then rng2.Offset(, 1).Resize(, 4).Value =

[dj44]

Thank you,

:)




Sub insertoffset()


Dim oCell As Range


For Each oCell In ActiveSheet.Range("A1:A46")

If InStr(1, oCell.Value, "EMPTY") > 0 Then

oCell.Offset(, 1).Resize(, 4).Value = "EMPTY"


End If
Next

End Sub



that did the trick