79415148

Date: 2025-02-05 14:53:46
Score: 1
Natty:
Report link

Here is an implemetation with For Each and Next

Sub MoveData5()

    For Each cell In Sheets("Vendors Comparison Answers").Range("C3:C100")
        If cell.Value = "SHM" Then
            Sheets("SHM Vendor Comparison").Range("E2:E98").Cells(cell.Row).Value = "shm"
        End If
    Next cell

End Sub
Reasons:
  • Low length (0.5):
  • Has code block (-0.5):
  • Low reputation (1):
Posted by: David Amato Mantegari