Sumif to VBA

[lotto009]

Dear all expert
From my code by record VBA I would like change formula to VBA code
-from Sumif to VBA
Please help revise my code for correct and suggest to me because I have many data afyer used vba below my com slowly can see at module 3 and file att
Thank you for your help
lotto009 :think:
Sub Macro2()
'
' Macro2 Macro
' sumiff
'
'
Range("F7").Select
ActiveCell.FormulaR1C1 = _
"=SUMIF('Datagetfromserver '!R[-5]C[-5]:R[138]C[-5],Sum!RC[-3]:R[5]C[-3],'Datagetfromserver '!R[-5]C[-3]:R[138]C[-3])"
Range("G7").Select
ActiveCell.FormulaR1C1 = _
"=SUMIF('Datagetfromserver '!R[-5]C[-6]:R[138]C[-6],Sum!RC[-4]:R[5]C[-4],'Datagetfromserver '!R[-5]C[-3]:R[138]C[-3])"
Range("F7:G7").Select
Selection.AutoFill Destination:=Range("F7:G12")
Range("F7:G12").Select
Range("A1").Select
Selection.ClearContents
Range("A1").Select
End Sub

[Aussiebear]

Sub Macro2()
Range("F7").FormulaR1C1 = _
"=SUMIF('Datagetfromserver'!R[-5]C[-5]:R[138]C[-5],Sum!RC[-3]:R[5]C[-3],'Datagetfromserver '!R[-5]C[-3]:R[138]C[-3])"
Range("G7").FormulaR1C1 = _
"=SUMIF('Datagetfromserver'!R[-5]C[-6]:R[138]C[-6],Sum!RC[-4]:R[5]C[-4],'Datagetfromserver '!R[-5]C[-3]:R[138]C[-3])"
Range("F7:G7").AutoFill Destination:=Range("F7:G12")
Range("A1").ClearContents
End Sub¨

[snb]

Sub M_snb()
With Cells(7, 6)
.Value = "=SUMIF('Datagetfromserver'!R[-5]C[-5]:R[138]C[-5],Sum!RC[-3]:R[5]C[-3],'Datagetfromserver'!R[-5]C[-3]:R[138]C[-3])"
.AutoFill .Resize(, 2)
.Resize(, 2).AutoFill .Resize(5, 2)
End With
End Sub

[lotto009]

Dear Aussiebear&Snb
Thank you for your kindly suggest for biginner VBA to me
:friends: :friends: :friends:

[lotto009]

Dear Aussiebear&Snb
So sory for inforamtion late after I used your code 2 code can not success please help advise again :help