Weekday function into VBA

Hi there

I need this function

=A1+60+7-WEEKDAY(A1+60+1)

into a macro

Its the weekday section that I can'[t get.

I've got

Private Sub DetermineDeadline()
With ws1.Cells("H6") + 60 + 7 - Weekday
ws1.Cells ("H6") + 60 + 1
End Sub

Thank you