Do Loop with Variable Range

The following macro is in a file that I inherited and I would like to change it so that it will stop after reaching the last row of data (blank after that). I am new to Macros and it looks like there is a lot of junk in this macro, but right now I just want to limit it to the data range which changes daily when this is run. Any help is appreciated.

Sub Subs_insert()
'
' Subs_insert Macro
'

'
Dim startLocation As Integer
startLocation = 2
endLocation = 225 * 13 + 225
rowLocation = 3

Do

    Windows("Hotlist Template V2_1.xlsm").Activate
    
    Range("B" & startLocation).Select
    Selection.Copy
    Windows("Hotlist V2_0 Tools.XLSX").Activate
    Sheets("Family Tool").Select
    
    Range("B2").Select
    Range("B2").Activate
    
    ActiveSheet.Paste
    Range("C2:C14").Select
    Application.CutCopyMode = False
    Windows("Hotlist Template V2_1.xlsm").Activate
    Windows("Hotlist V2_0 Tools.XLSX").Activate
    Sheets("Family Tool").Select
    Range("C9").Select
    Windows("Hotlist Template V2_1.xlsm").Activate
    Rows(rowLocation).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B" & startLocation).Select
    Selection.Copy
    Windows("Hotlist V2_0 Tools.xlsx").Activate
    Sheets("Family Tool").Select
    
    Range("B2").Select
    ActiveSheet.Paste
    Range("C2:AF14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Hotlist Template V2_1.xlsm").Activate
    Range("B" & startLocation).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  '  Windows("Hotlist V2_0 Tools.xlsx").Activate
  '  Sheets("Family Tool").Select
    
  '  Range("D2:AF14").Select
  '  Application.CutCopyMode = False
  '  Selection.Copy
  '  Windows("Hotlist Template V2_1.xlsm").Activate
  '  Range("D" & startLocation).Select
  '  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  '  Windows("LCD_DSI.XLS").Activate
  '  Application.CutCopyMode = False
    Windows("Hotlist Template V2_1.xlsm").Activate
    
    startLocation = startLocation + 14
    rowLocation = rowLocation + 14
    
Loop Until startLocation > endLocation
End Sub

The last row of data in which sheet in which workbook?

PS Can you use code tags when posting code?

This would loop through column B starting at 2 and stepping 13 rows each iteration.

I've shown how you could use I in the first few lines.

I can't figure out the rest of the code, it's seems to jump about a fair bit, so I'm not sure how it would fit in there.

Dim wbTemplate As Workbook
Dim wbTools As Workbook
Dim startLocation As Range
Dim rowLocation As Range
Dim I As Long

    For I = 2 To wbTemplate.Range("B" & Rows.Count).End(xlUp).Row Step 14
    
        Set startLocation = wbTemplate.ActiveSheet.Range("B" & I)
        Set rowLocation = startLocation.Offset(1)
        
        startLocation.Copy wbTools.Sheets("Family Tool").Range("B2")

   Next I