Range(Cells) "Anwendungs-oder objektdef. Fehler"

Private Sub CommandButton1_Click()
Sheets("Sales cur. week").Select
addSalesData (Range("M3").Value)
End Sub

Private Sub addSalesData(week As Integer)
' week 1 -> D8 (4)
' week 2 -> L8 (12)
' week 3 -> T8 (20)
Dim column As Integer
Dim row As Integer
column = (week - 1) * 8 + 4
row = 8
Sheets("Sales cur. week").Select
Range("C5:G12").Select
Selection.Copy
Sheets("Sales Q1").Select
'    Sheets("Sales Q1").Range("D8").Select
Sheets("Sales Q1").Range(Sheets("Sales Q1").Cells(row, column)).Select
Selection.PasteSpecial Paste:=xlPasteValues