Need help

[wroze27]

I need a code so that it reads a certain cell ( Cell A2 in this case) and if it matches the right name ( a in this example) it will copy specific cells and paste them into the last line in a column. Currently I cannot get it to paste. Are my notations incorrect and can somebody help me get this working? Thanks so much guys.

Sub Test()
    Dim N As Long
    N = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1
If Sheet1.Range("A2") = a Then
    Sheet2.Cells(N, A) = Sheet1.Range("B2")
    Sheet2.Cells(N, A) = Sheet1.Range("C2")
    End If
Else
End If
End Sub

 

[wroze27]

Just to be clear, when I say paste in the last cell in a column, I mean that I want it to paste in the empty cell just below the last cell with info in it

 

[Fluff]

Do you want the two values underneath each other in col A or in cols A & B?

 

[wroze27]

Do you want the two values underneath each other in col A or in cols A & B?

I want to be able to paste the two values beside each other but both would be in the last row in their column

 

[Fluff]

In that case how about

Sub Test()
    Dim N As Long
    N = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1
If Sheet1.Range("A2") = "a" Then
    Sheet2.Cells(N, "A") = Sheet1.Range("B2")
    Sheet2.Cells(N, "B") = Sheet1.Range("C2")
End If
End Sub