ActiveSheet Range not working.

Im getting the "Object doesn't support this property or method" Error.
I have no idea why.

Here's the code:

Private Sub Statistics_Click()
    With ActiveSheet
        .Range("D2").Formula = "=COUNT(" & ActiveWindow.Selection.Adress & ")"
        .Range("D3").Formula = "=MIN(" & ActiveWindow.Selection.Adress & ")"
        .Range("D4").Formula = "=MAX(" & ActiveWindow.Selection.Adress & ")"
        .Range("D5").Formula = "=SUM(" & ActiveWindow.Selection.Adress & ")"
        .Range("D6").Formula = "=AVERAGE(" & ActiveWindow.Selection.Adress & ")"
        .Range("D7").Formula = "=STDEV(" & ActiveWindow.Selection.Adress & ")"
    
        
        .Range("C2").Value = "Count:"
        .Range("C3").Value = "Min:"
        .Range("C4").Value = "Max:"
        .Range("C5").Value = "Sum:"
        .Range("C6").Value = "Average:"
        .Range("C7").Value = "Stan Dev:"
        .Range("C2:D7").Select
    End With
    With Selection
        .Borders.Weight = x1Thin
        .Columns.AutoFit
    End With
    Range("A1").Select
End Sub

Best.