Range kopieren schlägt fehl.

Sub blattkopieren()
Dim frstrw As Range
Dim Spalte As Integer
Dim lastrw As Range
On Error Resume Next
Set frstrw = Application.InputBox("Start Row (WITHOUT HEADLINE)", Type:=8)
If Not frstrw Is Nothing Then
Sheets("system").Range("b6") = frstrw.Row
frstrw = frstrw.Row
On Error GoTo 0
End If
Set wksori = ThisWorkbook.Worksheets("BSQ")
Set wkstemp = ThisWorkbook.Worksheets("temp_ir")
With wkstemp
Spalte = ThisWorkbook.Worksheets("system").Cells(10, 2)
lstrw = .Cells(.Rows.Count, Spalte).End(xlUp).Row
.Range(Cells(frstrw, Spalte), Cells(lstrw, Spalte)).Copy wksori.Cells(5, 4)
End With
End Sub