Macro to paste special from from specific sheet up to before sheet 'Month"

[howard]

I have code below to copy data and to paste value the data and retain the format


I need to copy the data from sheets "BRT Kirty" up to before sheet "Month" and to paste these as values on these sheets and to retain the format

I need the code below amended to accommodate this

It would be appreciated if someone could assist me

 For I = Sheets("BRT Kirty").Index To Worksheets.Count

See full code below

 Sub PasteValues_specficSheets()

Dim LR As Long, I As Long, SH as worksheet

For I = Sheets("BRT Kirty").Index To Worksheets.Count

For Each Sh In ThisWorkbook.Worksheets (I)

If Sh.Visible = True Then

Sh.Activate

Sh.Cells.Copy

Sh.Range("A1").PasteSpecial Paste:=xlValues

Sh.Range("A1").Select

End If

Next Sh

End Sub

 

[Fluff]

How about

Sub howard()
   Dim i As Long
   
   For i = Sheets("BRT Kirty").Index To Sheets("Month").Index - 1
      With Sheets(i)
         If .Visible Then .UsedRange.Value = .UsedRange.Value
      End With
   Next i
End Sub

 

[howard]

Many Thanks Fluff

 

[Fluff]

You're welcome & thanks for the feedback.