Range - Offset (Major help needed)

[VBA Noob]

Hi all,

I have a Range("C2:AL2"). Each cell in the range has a formula refering
to cell "A1" which contains the date for the month e.g Sept sheet has
"01/09/2006" . The range is formatted as "d".

I'm trying to write a macro to add the below forumla in Range("C4:AL4")
when it meets these criteria

1). It's the first cell
2). When the date is a Sat

So it also needs to amend the formula when it meets the criteria

e.g for Sept
C2 for first cell
D2 for first Sat
K2 for sec Sat
R2 for third Sat
Y2 for four Sat
AF2 for fifth Sat


=INT(((C2-1461)-SUM(MOD(DATE(YEAR(C2-MOD(C2,7)+3),1,2)-1461,{1E+99,7})*{1,-1})+5)/7)

lastly I want a xlThin border for each week so going back to Sept

C4 Would have a border
D2 to J4
K4 to Q4

you get the idea.

Here's the code I have so far.


Code:
--------------------

Sub Wk_No()

' Dim variable rng to be a range object
Dim rng As Range

' Assign the object rng a range

Set rng = Range("C3:AL3")


' Check each item in rng
For Each x In rng
' If cell = Total then
If x.Value = "02/09/2006" Then
ActiveCell.Offset(1, 0).Range("A1").Select
End If
' Check the next item in rng
Next x

End Sub

--------------------


Any help will be greatly appreciated.

VBA Noob

PS Sorry about the length of the post