Copy Conditional Formatting

[Migas.pt]

Hello,

I need to copy the conditional formatting of a single cell of a single sheet into a column with data.

However, the conditional formatting should stop being copied until a certain point.

-The code should copy the formatting from cell M6 of Sheet1.
-It should stop copying until the last data in column E of Sheet2.
-Since I will use it on severall sheets, and because some sheets can be blank, the code should recognize that it does not need to copy if there is no data.

Thanks in advance!

[Bob Phillips]

Public Sub CopyCF()
Dim lastrow As Long
Dim ws As Worksheet

    ActiveSheet.Range("M6").Copy
    
    For Each ws In ThisWorkbook.Worksheets
    
        If Not ws Is ActiveSheet Then
        
            lastrow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
            If lastrow > 1 Then ws.Range("E13").Resize(lastrow - 12).PasteSpecial Paste:=xlPasteFormats
        End If
    Next ws
End Sub

[Migas.pt]

Thank you Bad Philips!

Could I ask for some changes?

Could I write it to go copy from the same sheet every time while it pastes on the several sheets of the workbook?
The column on which is has to paste is not the same on all sheets, could I select a certain column?

I will add this code to a code I already have which goes from sheet to sheet doing a bunch of stuff. I would like to have a code "for a sheet" and just change it manually to adapt to each sheet.

[Migas.pt]

So far I have this and it's almost what I need:

Sub CF()
Dim a As Long, RNG As Range
'
' CF Macro
'

'
    Sheets("YTD Detail - Direct").Select
    Range("M7").Select
    Selection.Copy
    Sheets("YTD Detail - Non-Direct").Select
On Error Resume Next
Set RNG = Range("K14:K" & Rows.Count).SpecialCells(xlConstants).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

It just skips the blank cells, that's because of the "xlConstants", right?
What should I modify so it does not skip blank cells but does stop when the rows have no data?

PS- I have very basic knowledge of coding. I just try stuff and see if it works.

[Migas.pt]

Can I add something to stop the rows.count when on column A is written "Grand Total"?

[Migas.pt]

I auto solved my request eheh

Here is the code if needed in the future:

Sub CF()
'
' CF Macro
'

'
    Sheets("YTD Detail - Direct").Select
    Range("M7").Select
    Selection.Copy
    Sheets("YTD Detail - Non-Direct").Select
    Range("K14", Range("K:K").Find("*", , , , 1, 2)).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub