Easy Find then Move

[spcalan]

I am trying to find, extract, and move data because of formatting issues:
If any row in Column E starts with F or M, then move the range Col E:N to the range of A:J of the row above row found in.

Sub Move_Data()
With Sheets("Sheet1")
FR = 2
LR = .Cells(Rows.Count, "E").End(xlUp).Row
For x = LR To FR Step -1
If Left(Cells(x, "E"), 1) = "F" Or Left(Cells(x, "E"), 1) = "M" Then
.Cells(x, "E") = Dater
.Cells(x, "F") = Formula
.Cells(x, "G") = Typer
.Cells(x, "H") = Pounder
.Cells(x, "I") = Coder
.Cells(x, "J") = Namer
.Cells(x, "K") = Q1
.Cells(x, "L") = P1
.Cells(x, "M") = A1
.Cells(x, "N") = P2

Dater = .Cells(x - 1, "A")
Formula = .Cells(x - 1, "B")
Typer = .Cells(x - 1, "C")
Pounder = .Cells(x - 1, "D")
Coder = .Cells(x - 1, "E")
Namer = .Cells(x - 1, "F")
Q1 = .Cells(x - 1, "G")
P1 = .Cells(x - 1, "H")
A1 = .Cells(x - 1, "I")
P2 = .Cells(x - 1, "J")
End If

Next x

End With
End Sub

 

[John_w]

Try this:

Sub Move_Data()
    Dim FR As Long, LR As Long, x As Long
    With Sheets("Sheet1")
        FR = 3
        LR = .Cells(Rows.Count, "E").End(xlUp).Row
        For x = FR To LR
            If Left(.Cells(x, "E").Value, 1) = "F" Or Left(.Cells(x, "E").Value, 1) = "M" Then
                
                'If any row in Column E starts with F or M, then move the range Col E:N to the range of A:J of the row
                'above row found in.

                .Range("E" & x & ":N" & x).Cut Destination:=.Range("A" & x - 1 & ":J" & x - 1)
            End If
        Next x
    End With
End Sub