Snasui Excel Forum

Code: Select all

Sub test()
    Dim rsc As Range, rs As Range
    Dim rt As Range, t As String
    With Sheets("Total")
        t = Sheets("Summary Report").Range("b4").Value
        Set rsc = .Range("c4", .Range("c4").End(xlDown))
        For Each rs In rsc
            If rs.Value = t Then
                Sheets("Summary Report").Range("a" & .Rows.Count) _
                    .End(xlUp).Offset(1, 0).Resize(, 52) _
                    = rs.Offset(0, -2).Resize(, 52).Value
            End If
        Next rs
    End With
End Sub