VBA - Run Two loops and Confirm Range doesn't include loopping Value

[JJCA99]

Hi Guys,

I have the code below but for some reason I'm missing making an error on my code.

So in Range AM8:BE8 I have headers that will always change/update.
In Column BR contains values that I want to add into my range AM8:BE8 but only if it doesn't exist yet.

For some reason the headers keep double up on me.
here is the code I have.
Thanks.

 aps = Cells(Rows.Count, 70).End(xlUp).Row
 dt = 1
 
    
       
With SPsum ' this is the sheet I'm working on
   For p = 1 To aps
    
    APT = Cells(p, 70)
If Range("$AM$8:$BE$8") <> p Then
 AT = SPsum.Range("BF8").End(xlToLeft).Column + 1
 SPsum.Cells(8, AT) = APT
End If
Next p

 
End With

 

[Warship]

Sub a()
    Dim c As Variant, fnd As Range, ColumnHead As Range, HeaderList As Range
    Set ColumnHead = Range(Cells(8, 39), Cells(8, 58).End(xlToLeft))
    Set HeaderList = Range("BR1:BR" & Cells(Rows.Count, "BR").End(xlUp).Row)
    For Each c In HeaderList
        Set fnd = ColumnHead.Find(c, , , xlWhole)
        If fnd Is Nothing Then Cells(8, 58).End(xlToLeft).Offset(, 1) = c
    Next c
End Sub

 

[JJCA99]

Thank you sir