Sub enregetat()
Dim Mavar As Long
Mavar = Sheets("Data Base Geral").Range("AZ1")
Range("D18").Copy
Sheets("Data Base Geral").Cells(3 + Mavar, 31).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
Range("D19").Copy
Sheets("Data Base Geral").Cells(3 + Mavar, 34).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
Range("D20").Copy
Sheets("Data Base Geral").Cells(3 + Mavar, 37).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
Range("D18: D20").ClearContents
End Sub