新しいワークブックを開いて、列「A」の値を合計し、最初の空白セルに貼り付けようとしています。しかし、空白のセルには合計が表示されません。
Path = ActiveWorkbook.Path
Filename = InputBox("Enter an input file name")
MsgBox Filename
InputFile = Path & "\"
InputFile = InputFile & Filename
MsgBox InputFile
Workbooks.Open Filename:=InputFile
'Activating the Raw Data Report
Set InputFile = ActiveWorkbook
Set InputFileSheet = InputFile.Sheets("Sheet1")
InputFileSheet.Select
InputFileSheet.Activate
Set r = Range(Range("A1"), Cells(Rows.Count, "A"))
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) = Application.WorksheetFunction.Sum(r)