Why is this a run time error 1004?

[vbaNumpty]

The following line gives me 1004 error and I cannot understand why: searchValue.Offset(p, -5).Resize(b, -16).Borders.LineStyle = xlContinuous


Full code:

Sub imageCompare()

    Dim dashB As Worksheet
    Dim imageB As Worksheet
    
    Dim findValue As Range
    Dim searchValue As Range
    Dim addMe As Range
    Dim formatMe As Range
    Dim ordrList As Range
    Dim myarray As Variant
    
    Dim j As Integer
    Dim i As Integer
    Dim y As Integer
    Dim p As Integer
    Dim n As Integer
    Dim x As Integer
    Dim b As Integer
    Dim u As Integer
    
    Set dashB = Sheet1
    Set imageB = Sheet4
    Set ordrList = Sheet3.Range("outdata")
    
    myarray = ordrList

    i = Evaluate("=COUNTA(Image!X:X)")
    
    x = 0
    
    For j = 1 To i
        'Setting ID# on updated values
        Set findValue = imageB.Range("X:X").Find(What:=myarray(j, 1), _
            LookIn:=xlValues, lookat:=xlWhole)
        'Using to match values to original launched data
        Set searchValue = dashB.Range("X:X").Find(What:=myarray(j, 1), _
            LookIn:=xlValues, lookat:=xlWhole)
            
        'Find Number of Lines
        y = findValue.Offset(0, -3).value
        p = searchValue.Offset(0, -3).value
        
            If y > p Then
                b = y - p
                
                For u = 1 To b 'insert # of new lines in order
                    
                    searchValue.Offset(p, 0).EntireRow.Insert
                       
                Next u
                
                searchValue.Offset(p, -5).Resize(b, -16).Borders.LineStyle = xlContinuous
                
            End If

 

[Fluff]

You cannot resize with -ve numbers.

 

[RoryA]

You can't use a negative value in Resize (it doesn't work like the OFFSET worksheet function)

 

[vbaNumpty]

You cannot resize with -ve numbers.

thanks!

 

[Fluff]

Glad we could help & thanks for the feedback.