Auto sideskift i vba

Hej
Har nogle program stumper, der laver en planlægnings skema
her skal der være side skift for hver uge
det med uge har jeg fået til at funke
men det med sideskift driller

Prøver denne kode:
i = 1
    For Each cc In Range(Cells(2, 2), Cells(2, antalKol))
  If cc.Value <> "" Then
        Set ActiveSheet.VPageBreaks(i).Location = Cells(cc.Column).Address     
      i = i + 1     
       
      End If
      Next
Ved ikke om det er Cells(cc.Column).Address     
der er fejl , for rigtigt skulle det være range
Cells(cc.Column).Address  giver jo ogsp $A$1 eller lign
hvor i mod hvis man ser koden til side skift
er koden range("a1").address

Men idden er altså at få sat et sideskift hvor cc.value <> blank