VBA to copy row if cells contain value

[MattehWoo]

Try this.

Sub Transfer_Ones_And_Twos()
    Dim c As Range
    For Each c In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        If Right(c.Value, 1) = 1 Then c.Resize(, 3).Copy Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1)
        If Right(c.Value, 1) = 2 Then c.Resize(, 3).Copy Sheets("Sheet3").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    Next c
End Sub

I like this. How would i go about making the 1s go to columns ABC and the 2s to FGH?