Fehler: Method 'Range' of object '_Global' failed

Sub MehrmonatschluesselOE()
' MehrmonatschluesselOE Macro
' Berechnet den Mehrmonatsschluessel für OE
' auf Basis der DSO
' Deklaration der Variabeln
Dim DSO As Single
Dim DSOBasis As Single
Dim Conunter As Integer
Dim aktuellerMonat As Integer
Dim Monat As Integer
Dim MMS As Single
' Zuweisung der Anfangswerte
DSO = Sheets("Eingabe").Range([B10]).Value          '  XXXXXXXXXXXX                'Eingegebene DSO fuer OE wird ausgelesen
DSOBasis = 30#                                                                                                              'Tage
Counter = CInt(DSO / 30)                                                                                                'Muss eventuell noch aufgerundet werden oder + 0,5
aktuellerMonat = Sheets("Eingabe").Range([B1]).Value                                          'Eingegebener Monat wird ausgelesen
Monat = Sheets("Eingabe").Range([B1]).Value
MMS = 0
' Schleife zur berechnung des Mehrmonatsschluessel (MMS)
Do While Counter >= 0
Counter = Counter - 1
If aktuellerMonat = Monat Then
If DSO < DSOBasis Then
MMS = ((Range([F1]).Value) / DSOBasis * DSO)
Counter = -1
Else
DSO = DSO - DSOBasis
MMS = Range([F1]).Value
End If
Else
Sheets("Historie").Select
'suche Monat
'suche Feld
If DSO < DatenBasis Then
MMS = MMS + (Q4 / DSOBasis * DSO)
Counter = -1
Else
DSO = DSO - DSOBasis
MMS = MMS + Range([Q4]).Value
End If
End If
Loop
' MMS Zuweisung zum Ausgabefeld
Sheets("Eingabe").Range("G6") = MMS
End Sub