I have a worksheet (A) where the range is B1:J43. There is code that copies data from a different worksheet (B) into specific rows in A. Column B contains lane numbers for physical location referencing. There is additional code that will sort the data based on criteria in column H. I am trying to then use the .CopyPicture code to only copy that range where there is data in B1:J??. I tried the code below but it only copies one blank cell. Any help will be appreciated.

Sub Snip_SDT_Sort()

Dim SDTLR

SDTLR = Worksheets("SDT Status").Cells(Sheet18.Rows.Count, "H").End(xlUp).Row + 1

    With Sheet18
        .Range("B" & SDTLR).CopyPicture Appearance:=xlScreen, Format:=xlBitmap
    End With

End Sub