最終行の値を表示

Option Explicit

Sub COUNT()
    Range("A1") = Range("$C$65536").End(xlUp).Value
End Sub
    訂正
    ↓
Sub COUNT()
    Range("A1") = Value("$C$65536").End(xlUp).Value
End Sub