VBA Paste to Dynamic Column Address

[s_simon]

Prior to my problem area, I receive two dates from a form which I then determine the difference between them.

    Dim dayCount As Integer
    dayCount = DateDiff("d", Date_Selection.sDate.Value, Date_Selection.eDate.Value)

On my worksheet I need to take the formula that resides in "J2" and copy it to the column count of daycount
ie. If daycount = 2 , then copy the formula in J2 over to K2 and L2.

My latest attempt was:

    Worksheets("Master_Week").Range("J2", Cells("J2", Cells(2, Columns.Count).End(xlToLeft).Column + dayCount)).Formula = Range("J2").Formula

Which did not work
I have tried numerous variations of autofill, xltoleft, xltoright, up, down turn around, bang my head on the desk but can not get it right in my head

Hope the above makes sense.

 

[JLGWhiz]

Try this

With Worksheets("Master_Week")
    .Cells(2, Columns.Count).End(xlToLeft).Offset(, 1).Resize(, daycount).Formula = Range("J2").Formula
End With

 

[s_simon]

Try this

With Worksheets("Master_Week")
    .Cells(2, Columns.Count).End(xlToLeft).Offset(, 1).Resize(, daycount).Formula = Range("J2").Formula
End With

Thanks JLGWhiz - it copied the formula over the correct amount of columns , however I am running into a problem on the copy -
Cell J2 = =IFERROR(IF((I2+1)<='Date Sheet'!$B$2,I2+1,""),"")
and now K2 also = =IFERROR(IF((I2+1)<='Date Sheet'!$B$2,I2+1,""),"") instead of =IFERROR(IF((J2+1)<='Date Sheet'!$B$2,J2+1,""),"")

 

[s_simon]

So I believe that I have what I need :

Worksheets("Master_Week").Activate
Worksheets("Master_Week").Range("J2").Select
Worksheets("Master_Week").Range("J2").Offset(, dayCount).Select
Dim newCol As String
newCol = "J2:" & ActiveCell.Address
newCol = Replace(newCol, "$", "")
Worksheets("Master_Week").Range(newCol).FillRight

 

[JLGWhiz]

Thanks for the feedback.
Regards, JLG