Macro to copy a range to first empty row on another sheet

[sipa]

Edit: The Macro below is now working for the copy, I had misspelled the sheet name tab...duh !
however I'd still appreciate your help on the other bits please

I've tried various macro's I've found, but can't get them to do what I need, such as..

Private Sub UpdateData()

Sheets("Sheet1").Range("b6:I6").Copy

Dim lastrow As Long
lastrow = Range("A65536").End(xlUp).Row

Sheets("Sheet2").Activate
Cells(lastrow + 1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub

I need a macro to copy Values only from sheet1 B6:I6 to the first Empty row on sheet2 A to H

It would also be helpful that if after copying, on sheet1 Cells b6:c6 and b9:g30 and j6 the contents were cleared.
Additionally, rows on sheet2 a2 onwards to be sorted alphabetically on a2
any help would be appreciated

Many thanks

[dangelor]

Private Sub UpdateData()
    Sheets("Sheet1").Range("b6:I6").Copy
    Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
    
    Sheets("Sheet1").Range("b6:c6").ClearContents
    Sheets("Sheet1").Range("b9:g30").ClearContents
    Sheets("Sheet1").Range("j6").ClearContents
End Sub

[sipa]

Thanks for the help Dangelor