查找不在工作表中的范围内的最后一个空单元格

Question

I need to loop through a range of rows and end loop at last empty cell in that range. I know im not supposed to use End(xlUp) as it goes tot the end of the sheet I need to find the last full cell after a certain cell and stop there (in the picture it is cell c4)

Below is my code, i need help defining the "Last Cell"

Sub GS()
dim LastCell as Long
LastCell
ThisWorkbook.Worksheets("Service ID - Details").Visible = True

Dim myRange As Range: Set myRange = Worksheets(1).Range("F8:G11")

For i = 5 To LastCell
newname = ThisWorkbook.Worksheets("3. Functional Scope - 2").Cells(i, 3).Value
servicename = ThisWorkbook.Worksheets("3. Functional Scope - 2").Cells(i, 4).Value
c = 0
For Each ws In Worksheets
If ws.Name = newname Then
c = 1
End If
Next ws
If c = 1 Then
GoTo Last
End If

Sheets("Service ID - Details").Select
Sheets("Service ID - Details").Copy After:=Sheets(Sheets.Count)
Sheets("Service ID - Details (2)").Select
Sheets("Service ID - Details (2)").Name = newname
ActiveSheet.Range("D1").Value = newname
ActiveSheet.Range("D2").Value = servicename
Last:
Next
ThisWorkbook.Worksheets("Service ID - Details").Visible = False
ThisWorkbook.Worksheets("3. Functional Scope - 2").Activate
ActiveSheet.Range("C5").Select

End Sub

Answer 1

I would suggest just looping through all cells in the range and conditioning the loop on if the cell is empty or not ie

Dim rng As Range: Set rng = 'your range, also just set it as the range you saved from before
Dim cel As Range
For Each cel In rng.Cells
If cel.Value = vbNullString then
GoTo EndLoop
End If
With cel
    'your operation you want to loop
End With
EndLoop:
Next cel