Date settings problem

Hi,

I'm still new to macro programming so I would appreciate some help with the following problem:

The Cell H3 (and the following) should be the current date + 6 months

So far I tried this and the I think the mistake must be somewhere in the colored code. The result which is displayed in H3 is 20150612 (and the following lines as well)

Thanks for helping!

Sub UpdateRBPUploadDAte()
Dim NewDateX As String
Dim FutureDateX As String
Worksheets("RBP for Upload").Activate
If ActiveSheet.AutoFilterMode Then
ActiveSheet.AutoFilterMode = False
End If
NewDateX = Date
NewDateX = Format(Date, "yyyymmdd")
Range("G3") = NewDateX
Range("G3").Select
ActiveCell.Copy
Range("G3", Range("G4").End(xlDown).Offset(1, 0)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G3").End(xlDown).Offset(0, 0).Select
ActiveCell = clearcontent


'FutureDateX = Date
FutureDateX = DateAdd("m", 6, Date)
FutureDateX = Format(Date, "yyyymmdd")
Range("H3") = FutureDateX


Range("H3").Select
ActiveCell.Copy
Range("H3", Range("H4").End(xlDown).Offset(1, 0)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H3").End(xlDown).Offset(0, 0).Select
ActiveCell = clearcontent

End Sub

Yes the result is 20150612, but the result I'm looking for is the current date +6 months, which means 20151212 (either 6 months or 183 days, doensn't matter)

Thanks that solves the problem.

This line sets FutureDateX to today's date, which is not what you want

FutureDateX = Format(Date, "yyyymmdd")

This should do what you want (in one line instead of two)

FutureDateX = Format(DateAdd("m", 6, Date),"yyyymmdd")