I have the below code. I want so that if column C row i has the word NAME in it then I want to copy cells D & i + 1 : H & i + 1 and then paste the values into D & i. I then want to delete the entire row i + 1.
Am I close?
Dim i As Long, lrow As Long
With Worksheets("PasteHere")
lrow = .Range("A" & .Rows.Count).End(xlUp).Row
For i = lrow To 3 Step -1
If .Range("C" & i).Value = "NAME" Then .Range("D" & i + 1 & ":E" & i + 1 & ":F" & i + 1 & ":G" & i + 1 & ":H" & i + 1).Copy
.Range("D" & i).Paste
.Rows(i + 1).Delete
Next i
End With
End Sub
Bookmarks