Move entire row to new worksheet based on cell data

[cmschmitz24]

Hello, I need help refining a VBA code -
I need to have the entire row for a specific data value in column I moved into a new worksheet.

I am currently using this code, however it also deletes all the data rows underneath the rows that are being moved and that cannot happen.

Dim Check As Range, r As Long, lastrow2 As Long, lastrow As Long
Application.ScreenUpdating = False
lastrow = Worksheets("Export Worksheet").UsedRange.Rows.Count
lastrow2 = Worksheets("Sheet2").UsedRange.Rows.Count
If lastrow2 = 1 Then lastrow2 = 0
    For r = lastrow To 2 Step -1
        If Range("I" & r).Value = "UWMSN" Then
            Rows(r).Cut Destination:=Worksheets("Sheet2").Range("A" & lastrow2 + 1)
            lastrow2 = lastrow2 + 1
            Else:
        End If
    Next r
Application.ScreenUpdating = True

Thanks,
Christina

 

[Fluff]

Does this do what you're after?

Sub chk()

    Dim Rng As Range, r As Long, lastrow2 As Long, lastrow As Long
Application.ScreenUpdating = False

    lastrow = Worksheets("Export Worksheet").UsedRange.Rows.Count
    lastrow2 = Worksheets("Sheet2").UsedRange.Rows.Count
    If lastrow2 = 1 Then lastrow2 = 0
        For r = lastrow To 2 Step -1
            If Range("I" & r).Value = "UWMSN" Then
                If Rng Is Nothing Then
                    Set Rng = Range("A" & r)
                Else
                    Set Rng = Union(Rng, Range("A" & r))
                End If
            End If
        Next r
        Rng.EntireRow.Copy Worksheets("Sheet2").Range("A" & lastrow2 + 1)
        Rng.EntireRow.Delete
Application.ScreenUpdating = True
End Sub

 

[cmschmitz24]

Yes, perfect. Thank you!

 

[Fluff]

Glad to help & thanks for the feedback