Sub Findandcut4()
'This macro will move the word "ANNUAL LEAVE REGULAR HOURS" from Column C to Column M
    Dim row As Long
    For row = 2 To 50000
        ' Check if "save" appears in the value anywhere.
        If Range("C" & row).Value Like "ANNUAL LEAVE REGULAR HOURS*" Then
            ' Copy the value and then blank the source.
            Range("M" & row).Value = Range("C" & row).Value
            Range("C" & row).Value = ""
        End If
    Next
End Sub

Sub blah()
ActiveSheet.Range("A:H").AutoFilter Field:=3, Criteria1:="ANNUAL LEAVE REGULAR HOURS"
Set DataBody = Intersect(ActiveSheet.AutoFilter.Range, ActiveSheet.AutoFilter.Range.Offset(1))
Set AnnHrs = DataBody.Columns(3).SpecialCells(xlCellTypeVisible)
ActiveSheet.Range("A:H").AutoFilter Field:=3, Criteria1:="SICK LEAVE   REGULAR HOURS"
Set SicHrs = DataBody.Columns(3).SpecialCells(xlCellTypeVisible)
DataBody.AutoFilter
Set CellFirst = SicHrs.Cells(1)
For Each cll In SicHrs.Cells
  Set CellsToCopy = Nothing
  Set CellsToCopy = Intersect(AnnHrs, Range(CellFirst.Offset(1), cll.Offset(-1)))
  If Not CellsToCopy Is Nothing Then
    CellsToCopy.Cells(1).Resize(, 6).Copy CellFirst.Offset(, 10)
    CellsToCopy.Cells(1).Resize(, 6).ClearContents
    If CellsToCopy.Cells.Count > 1 Then
      CellsToCopy.Select
      MsgBox "More than one row to copy! Only the first of the selected cells' rows has been moved."
    End If
  End If
  Set CellFirst = cll
Next cll
End Sub

Sub Move_Stuff()

    Dim cl As Range

Application.ScreenUpdating = False

With ActiveSheet
    For Each cl In .Range("C2", .Range("C" & Rows.Count).End(xlUp))
        If cl.Value = "ANNUAL LEAVE REGULAR HOURS" Then
            cl.Offset(-2, 10).Resize(, 7).Value = cl.Resize(, 7).Value
            cl.Resize(, 7).ClearContents
        End If
    Next cl
End With

Application.ScreenUpdating = True

End Sub

Set SicHrs = Union(SicHrs, DataBody.Columns(3).Cells(DataBody.Rows.Count).Offset(1))