Paste Special (Addition) without affecting Subtotals (VBA)

[Paul Cherian]

Dear VBA Experts!

I am trying to create a vba macro that can copy values from a specific range and paste special (add) to the values in another range without changing the subtotals in the target column. But something somewhere went wrong. Could you please help me in this regards to debug the issue.
Here is the code which I did.

Sub copypasteaddvalues()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "*Conso" Or ws.Name <> "Sheet*" Or ws.Name <> "Graph*" Or ws.Name <> "Data*" Then _
 Range("H15:H50").Copy
Range("F15").PasteSpecial Paste:=xlPasteValues, _
    operation:=xlAdd, skipblanks:=False
Next ws
End Sub

[AlphaFrog]

Sub copypasteaddvalues()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If Not ws.Name Like "*Conso" And _
           Not ws.Name Like "Sheet*" And _
           Not ws.Name Like "Graph*" And _
           Not ws.Name Like "Data*" Then
                ws.Range("H15:H50").Copy
                ws.Range("F15").PasteSpecial Paste:=xlPasteValues, _
                        Operation:=xlAdd, Skipblanks:=False
        End If
    Next ws
End Sub

[Paul Cherian]

Hey Alpha!!

Thanks a lot. Its working Well!!

Only the formula for the sub totals are coming like this =((SUM(F15:F18))+0)+0

But its fine with me .

thanks a lot for your kind help!