Simplify Excel VB code

Hello all, I am hoping for someone to examine my code below and advise on how to make it run more efficiently. Thanks in advance.

Sub sFind()
On Error Resume Next

Dim n As Integer
Dim lineRow1 As Integer
Dim lineRow2 As Integer
Dim lineRow3 As Integer
Dim lineRow4 As Integer
Dim lineRow5 As Integer

Dim sLineNo As String

n = 1

Range("D5").Select
Do
        Cells.Find(What:="Line-" & n, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        
        sLineNo = ActiveCell.Value
            
            Select Case sLineNo
                Case "Line-1"
                      lineRow1 = ActiveCell.Row
                Case "Line-2"
                      lineRow2 = ActiveCell.Row
                Case "Line-3"
                      lineRow3 = ActiveCell.Row
                Case "Line-4"
                      lineRow4 = ActiveCell.Row
                Case "Line-5"
                      lineRow5 = ActiveCell.Row
           End Select
n = n + 1
Loop Until n >= 5
 
nN = 1
Range("D5").Select
Do
        Cells.Find(What:="Line-" & nN, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        
		sLineNo = ActiveCell.Value
            
            Select Case sLineNo
                Case "Line-1"
                    Range("A" & lineRow1 :A" & lineRow2 - 1).Formula = 1stFormula
                Case "Line-2"
                    Range("A" & lineRow2 :A" & lineRow3 - 1).Formula = 2ndFormula
                Case "Line-3"
                    Range("A" & lineRow3 :A" & lineRow4 - 1).Formula = 3rdFormula
                Case "Line-4"
                    Range("A" & lineRow4 :A" & lineRow5 - 1).Formula = 4thFormula
                            
            End Select
nN = nN + 1
Loop Until nN >= 5

End Sub

The code needs to loop through all the Production Lines (1 to 15) – between the Prod’ Lines is a list of orders (amount of orders varies) I need to programmatically copy a different formula dependent on the Prod’ Line.
So between Prod’1 and Prod’2 will be Formula 1, between Prod’2 & Prod’3 will be formula 2, etc etc.
I hope this makes sense, my VB code works but as I was hoping make it simpler.