See sample code - specifiy correct sheet name as required.

Sub test123()
Dim prevrow As Range
Dim moveIn As Double
On Error Resume Next
Set prevrow = Application.InputBox(Prompt:="Please select the
range to reference", Title:="Range selection", Type:=8)
On Error GoTo 0
If prevrow Is Nothing Then Exit Sub


moveIn = WorksheetFunction.Sum(prevrow)
Debug.Print "moveIn:", moveIn
Debug.Print prevrow.Address

moveIn = WorksheetFunction.Sum(Sheets("Other").Range
(prevrow.Address))

Debug.Print "moveIn:", moveIn

End Sub