Excel Help Forum - View Single Post

JP Romano · #2 11-11-2009, 03:52 PM

Not elegant, but it works for me...

This assumes your data starts in A2 and will put your results in columns F-H.

Code:

Dim lastrow As Integer
lastrow = Range("a65536").End(xlUp).Row

Range("A2").Select
Do Until ActiveCell.Row = lastrow
    If ActiveCell.Value = "PayPal" Then
        Row = ActiveCell.Row
        Range(ActiveCell.Offset(0, 2), ActiveCell.Offset(0, 3)).Copy
        Range("G65536").End(xlUp).Offset(1, 0).Select
        ActiveCell.Offset(0, -1).Value = "PayPal"
        ActiveCell.PasteSpecial
        Range("A" & Row).Select

    End If
    ActiveCell.Offset(1, 0).Select
    Loop

Range("F2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
       .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    Range("F2").Select