変数にセル値を格納する

Question

vbaを使用して変数にセルの値を格納しようとしています。私のコードはエラーをスローします。セルの値が変数に格納されるように変更する必要がありますか？

Dim total As Long 
total = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).End.Value 
Debug.Print (total) 

私が手にエラーが

引数の数が間違ってまたは割り当てられた無効なプロパティがある

Answer 1

Dim total As Long 
Dim wk as worksheet 

Set wk = activesheet 

total = wk.Range("D" & wk.Cells(wk.Rows.Count, "D").End(xlUp).Row).value 
Debug.Print (total)