Can anyone convert this please ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
a = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets("Sheet2").Range("A" & a).Value = Sheets("Sheet1").Range("A2").Value
End If
If Target.Address = "$B$2" Then
b = Sheets("Sheet2").Cells(Rows.Count, "B").End(xlUp).Row + 1
Sheets("Sheet2").Range("B" & b).Value = Sheets("Sheet1").Range("B2").Value
End If
End Sub
Thanks Paul