Fotovoltaico somma + macro

Buongiorno mi chiamo Francesca e sono nuova nel forum. Avrei bisogno di un piccolo aiuto per una macro. Premetto che utilizzo da pochissimo questo linguaggio (VBA). La mia necessità è quella di creare una macro che mi esegua diverse somme da celle selezionate da me con il cursore e che ogni volta inserisca il risultato in un foglio diverso (ma nello stesso file) da una casella selezionata da me con il cursore. E' possibile eseguire una cosa del genere?
Ho già creato una macro che selezionando i valori nel primo foglio mi riporta la somma nel secondo foglio ma solo in una casella specifica e non riesco a fargliela selezionare io con il cursore grazie a chi mi aiuta. Buona giornata

Allego qui la mia macro:
[TESTO ::text]Sub Sommacabinefinale()
xRange = Selection
Range("A1:A2").Select
Application.Goto ActiveWorkbook.Sheets("Report").Cells(2, 2)
Range("B2") = Range("B2") + Application.WorksheetFunction.Sum(xRange)

ActiveWindow.SmallScroll Down:=-3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 6).Range("A1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-8]:RC[-4])"
ActiveCell.Select
Selection.ClearContents
ActiveCell.Offset(0, -2).Range("A1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
End Sub
Sub Sommacabinefinale2()
xRange = Selection
Range("B30:F30").Select

Application.Goto ActiveWorkbook.Sheets("Report").Cells(2, 3)
Range("B3") = Range("B3") + Application.WorksheetFunction.Sum(xRange)

ActiveWindow.SmallScroll Down:=-3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 6).Range("B3").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-8]:RC[-4])"
ActiveCell.Select
Selection.ClearContents
ActiveCell.Offset(0, -2).Range("B3").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
End Sub
Sub Sommacabinefinale3()
xRange = Selection
Range("B30:F30").Select
Application.Goto ActiveWorkbook.Sheets("Report").Cells(2, 4)
Range("B4") = Range("B4") + Application.WorksheetFunction.Sum(xRange)

ActiveWindow.SmallScroll Down:=-3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 6).Range("B4").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 2).Range("B4").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-8]:RC[-4])"
ActiveCell.Select
Selection.ClearContents
ActiveCell.Offset(0, -2).Range("A1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
End Sub
Sub Sommacabinefinale4()
xRange = Selection
Range("B30:F30").Select
Application.Goto ActiveWorkbook.Sheets("Report").Cells(2, 5)
Range("B5") = Range("B5") + Application.WorksheetFunction.Sum(xRange)

ActiveWindow.SmallScroll Down:=-3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 6).Range("B5").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 2).Range("B5").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-8]:RC[-4])"
ActiveCell.Select
Selection.ClearContents
ActiveCell.Offset(0, -2).Range("B6").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
End Sub
Sub Sommacabinefinale5()
xRange = Selection
Range("B30:F30").Select
Application.Goto ActiveWorkbook.Sheets("Report").Cells(2, 6)
Range("B5") = Range("B5") + Application.WorksheetFunction.Sum(xRange)

ActiveWindow.SmallScroll Down:=-3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 6).Range("A1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-8]:RC[-4])"
ActiveCell.Select
Selection.ClearContents
ActiveCell.Offset(0, -2).Range("A1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
End Sub
Sub Sommacabinefinale6()
xRange = Selection
Range("B30:F30").Select
Application.Goto ActiveWorkbook.Sheets("Report").Cells(2, 7)
Range("B6") = Range("B6") + Application.WorksheetFunction.Sum(xRange)

ActiveWindow.SmallScroll Down:=-3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 6).Range("A1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-8]:RC[-4])"
ActiveCell.Select
Selection.ClearContents
ActiveCell.Offset(0, -2).Range("A1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
End Sub[/TESTO]