VBA To Look For Cell Value Then Copy All Values Below

I get reports that involve part names and versions. The versions column is not always in the same place and the part name is sometimes shifted but not often enough that its cause issues.

Code:
Sub TDPNEW()Dim Excel As Excel.Application
Dim WB As Workbook
Set Excel = New Excel.Application
Set WB = Workbooks.Open(Range("B4").Value)

[Code] ........

However instead of pulling in K4-1716 and P4-1716, I want it to pull in "Components" until Blank (Down a column) and "Version-Until Blank (Down a column)

I originally just had a ton of formulas using Index(match) over a bunch of worksheets but this macro worked for me for the past few days but now since we are adding and removing columns I can't always be certain where the values will sit.