Need help writing Excel VBA code to copy and paste specific rows into a new worksheet

Try the below code.....

Sub copyblank()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim lr As Integer
Dim lrnc As Integer

For Each ws In ThisWorkbook.Worksheets
        If ws.Name = "NoRecon" Then
        Sheets("NoRecon").Activate
        Exit Sub
        End If
        ws.Activate
        lr = ws.Cells(Rows.Count, 1).End(xlUp).Row
        Set rng = Range("G2:G" & lr)
    For Each cell In rng
    lrnc = Sheets("NoRecon").Cells(Rows.Count, 1).End(xlUp).Row + 1
        If cell.Value = "" Then
        cell.EntireRow.Copy Destination:=Sheets("NoRecon").Range("A" & lrnc)
        End If
    Next cell
Next ws
End Sub

I hope this helps.