Excel VBA Update Code to where my slicers are above frozen pane C8

[lennyt00]

Update the code below to where whenever I freeze the panes at c8 the slicers don't cover the data there. I need the slicers to be above cell c8 and move along whenever I scroll the worksheet:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Dim ShF As Shape

Dim ShM As Shape

'specify a slicer

Application.ScreenUpdating = False

Set ShA = ActiveSheet.Shapes("Region 1")

Set ShB = ActiveSheet.Shapes("Region 2 12")

Set ShC = ActiveSheet.Shapes("SCBM 51")

Set ShD = ActiveSheet.Shapes("CBT 47")

Set ShE = ActiveSheet.Shapes("Plan Owner 6")

Set ShF = ActiveSheet.Shapes("Month/Quarter 42")

Set ShG = ActiveSheet.Shapes("Month/Quarter2 1")

Set ShH = ActiveSheet.Shapes("YTD/YTG 4")

Set ShI = ActiveSheet.Shapes("BU New 46")

Set ShJ = ActiveSheet.Shapes("Category 45")

Set ShK = ActiveSheet.Shapes("Category Grouping 4")



'change position of the slicer

With Windows(1).VisibleRange.Cells(1, 1)



ShA.Top = .Top + 12.5

ShA.Left = .Left + 10



ShB.Top = .Top + 90

ShB.Left = .Left + 10



ShC.Top = .Top + 12.5

ShC.Left = .Left + 220



ShD.Top = .Top + 12.5

ShD.Left = .Left + 373



ShE.Top = .Top + 12.5

ShE.Left = .Left + 495



ShF.Top = .Top + 12.5

ShF.Left = .Left + 753



ShG.Top = .Top + 112

ShG.Left = .Left + 753



ShH.Top = .Top + 112

ShH.Left = .Left + 917



ShI.Top = .Top + 12.5

ShI.Left = .Left + 917



ShJ.Top = .Top + 12.5

ShJ.Left = .Left + 1030



ShK.Top = .Top + 12.5

ShK.Left = .Left + 1385



End With

Application.ScreenUpdating = True

End Sub