Snasui Excel Forum

Code: Select all

Sub CopyandPaste()
    Dim r As Range, ra As Range
    Dim i As Integer
    i = 1
    With Sheets("Report")
        Set ra = .Range("A1", .Range("A" & Rows.Count).End(xlUp))
    End With
    For Each r In ra
        If Left(r, 1) = "(" Then
            Range("C" & i).Offset(1, 0) = r.Value
            i = i + 1
        End If
    Next r
End Sub