Bitte um Hilfe

Sub Test2()
Application.ScreenUpdating = False
Worksheets("Tabelle2").Visible = xlSheetVisible
ActiveSheet.Visible = xlSheetVeryHidden
Worksheets("Tabelle2").Select
Cells(Cells(Rows.Count, 2).End(xlUp).Row + 1, 2).Select
End Sub

Von Tabelle1 wähle ich einen Teil von Tabelle2 so:
Private Sub CommandButton1_Click()
Call Test2
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
Rows("1:1000").EntireRow.Hidden = False
Rows("1001:65536").EntireRow.Hidden = True
Range("A:I").EntireColumn.Hidden = False
Range("J:IV").EntireColumn.Hidden = True
Range("B3").Select
End Sub
Was mache ich falsch?

Danke für eine Lösung
Gruß Adrian