範囲内をただループするだけなら以下。
┌──────────────────────────────────────┐
│Dim y As Long                                                               │
│With シート                                                                 │
│    With Range(.PageSetup.PrintArea)                                        │
│        For y = 1 To .Rows.Count                                            │
│            .Cells(y, 1).Interior.Color = RGB(255, 255, 0)                  │
│        Next y                                                              │
│    End With                                                                │
│End With                                                                    │
└──────────────────────────────────────┘

セル座標から制御する場合には以下。
┌──────────────────────────────────────┐
│Dim y As Long                                                               │
│Dim 開始行 As Long, 終了行 As Long                                          │
│With シート                                                                 │
│    With Range(.PageSetup.PrintArea)                                        │
│        開始行 = .Rows.Row                                                  │
│        終了行 = 開始行 + .Rows.Count - 1                                   │
│    End With                                                                │
│    For y = 開始行 To 終了行                                                │
│        .Cells(y, 1).Interior.Color = RGB(255, 255, 0)                      │
│    Next y                                                                  │
│End With                                                                    │
└──────────────────────────────────────┘