I am trying to create a macro to scan the data in Column H, when a "1" is
found, move one row up, copy that row and insert the copied row of data. I
have tried the following code, but it does not work and I cannot find an
answer in the searches I have done.

I would greatly appreciate help!

For Each Cell In Range("H:H")
If Cell.Value = "1" Then
Cell.Offset(-1, 0).Rows("1:1").EntireRow.Select
Selection.Copy.Insert Shift:=x1Down
End If
Next Cell

Lost in Alabama