De som van 2 cellen maken in een ander worksheet - Macro

[Speedykepke]

ik heb volgende macro
echter zou ik graag de som kunnen maken van 2 cellen uit een worksheet naar een bepaalde plaats in een ander worksheet
kan iemand mij helpen hierin
alvast bedankt op voorhand voor de gedane moeite

Speedy

Private Sub CommandButton1_Click()
For Each sh In ThisWorkbook.Sheets
If Not sh.Name = "Samenvatting" Then
With Sheets("Samenvatting")
Evrij = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Cells(Evrij, 1) = sh.Range("F7")
.Cells(Evrij, 2) = sh.Range("G16")
.Cells(Evrij, 3) = sh.Range("G17")
.Cells(Evrij, 4) = sh.Range("G18")
.Cells(Evrij, 5) = sh.Range("G14")
.Cells(Evrij, 6) = sh.Range("G50")
.Cells(Evrij, 7) = sh.Range("G51")
.Cells(Evrij, 8) = sh.Range("G50") 'hier zou het totaal dienen te komen van G50 + G51 = kolom (H)Omzet
.Cells(Evrij, 9) = sh.Range("G52")
.Cells(Evrij, 10) = sh.Range("G53")

End With
End If
Next
End Sub

Private Sub CommandButton2_Click()
Range("A4:A450").ClearContents
Range("B4:B450").ClearContents
Range("C4:C450").ClearContents
Range("D4450").ClearContents
Range("E4:E450").ClearContents
Range("F4:F450").ClearContents
Range("G4:G450").ClearContents
Range("H4:H450").ClearContents
Range("I4:H450").ClearContents
Range("J4:H450").ClearContents


End Sub

 

[VenA]

Al eens gelezen over codetags? En het plaatsen van voorbeeldjes?

Private Sub CommandButton2_Click()
Range("H4:H450").ClearContents
Range("I4:H450").ClearContents

Wat is hier het doel van?

 

[HSV]

Onderstaande zou hetzelfde moeten doen, incl. de som.

Private Sub CommandButton1_Click()
Dim sh As Worksheet
 For Each sh In Sheets
   If Not sh.Name = "Samenvatting" Then
     Sheets("Samenvatting").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 10) = _
     Array(sh.Range("F7"), sh.Range("G16"), sh.Range("G17"), sh.Range("G18"), _
     sh.Range("G14"), sh.Range("G50"), sh.Range("G51"), Application.Sum(sh.Range("G50:G51")), sh.Range("G52"), sh.Range("G53"))
  End If
 Next
 End Sub

Private Sub CommandButton2_Click()
 Range("A4:J450").ClearContents
End Sub