Double loop that finds the bottom and top of range in workbook and then finds range for next section in workbook that meets the criteria

Question

Dim top As Integer
Dim bot As Integer
Dim n As Integer
Dim Copyrange As String

For i = 2 To LastRow
    If wbkCurBook.Sheets("August FMR").Cells(i, "B&qu