Sub Macro1()
Dim MyAncorCell As Range

    Set MyAncorCell = Range("C15")
    
    ActiveWindow.ScrollRow = MyAncorCell.Row
    ActiveWindow.ScrollColumn = MyAncorCell.Column
    
End Sub

Application.ScreenUpdating = False 'в начале действий
...
Application.ScreenUpdating = True 'в конце действий

Sub Macro2()
' подготовка примера
    With Range("C9:F22")
        With .Interior
            .ColorIndex =  1 
            .Pattern = xlSolid
        End With
    End With
    With Range("B8:G23")
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
        With .Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        .Borders(xlInsideVertical).LineStyle = xlNone
        .Borders(xlInsideHorizontal).LineStyle = xlNone
    End With

    Range("D6:H26").Select
    
  ' основной код   
    ActiveSheet.PageSetup.PrintArea = Application.Selection.Address
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

Function ColorIndexFromRGB(RGBColor As Long, ByRef ColorIndexValue As Integer) As Boolean
'если ColorIndexFromRGB=False, то нет совпадения цвету в палитре
Const FirstPaletteIndex =  1 
Const LastPaletteIndex =  56 
Dim PaletteIndex As Integer

    ColorIndexFromRGB = False
    
    For PaletteIndex = FirstPaletteIndex To LastPaletteIndex
        If ActiveWorkbook.Colors(PaletteIndex) = RGBColor Then
            ColorIndexValue = PaletteIndex
            ColorIndexFromRGB = True
            Exit Function
        End If
    Next PaletteIndex

End Function

'==============================

Function RGBFromColorIndex(ColorIndexValue As Integer) As Long
    RGBFromColorIndex = ActiveWorkbook.Colors(ColorIndexValue)
End Function

ActiveSheet.PageSetup.PrintArea = ""

    Dim dlg As New MSComDlg.CommonDialog
    dlg.ShowColor
    Debug.Print dlg.Color

    ActiveWorkbook.Colors( 30 ) = RGB( 0 ,  128 ,  0 )
    ActiveSheet.Range("A1").Interior.ColorIndex =  30 
    ActiveSheet.Range("A2").Interior.Color = RGB( 0 ,  128 ,  0 )

ActiveWorkbook.Colors( 30 ) = RGB( 0 ,  128 ,  0 )
ActiveSheet.Range("A1").Interior.ColorIndex =  30 
ActiveSheet.Range("A2").Interior.Color = RGB( 0 ,  128 ,  0 )