Sub MM1()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
For r = 2 To lr
If Range("C" & r).Value = "Company2" Then
Rows(r & ":" & lr).Copy Destination:=Sheets("Sheet2").Range("A2")
Exit Sub
End If
Next r
End Sub
lr = Cells(Rows.Count, "[SIZE=2][/SIZE][COLOR="#FF0000"]C[/COLOR]").End(xlUp).Row
That thought had crossed my mind but I was concerned that the "Company2" may have been a Sub heading and not in every row.
That's why I went with Col "A" and then queried that in my previous post..
Is "Company2" spelled exactly as you have posted ??
AND in the same Case ??
Also, is there data in Column "A"