Cut and paste cells from M1, M2 ,M3 in the empty cells in the range A8:A48

In the attachments I have provided what my output is (OUTPUT.xlsx) and what I want my finished file to be (FINISHED.xlsx).
You can Ignore everything above the 8th row except the thigns that need to be cut and paste from M1, M2, M3, M5 and M6.

M1 Needs to be pasted in to the row after the word "Fina spodreza" is found in column B, M2 needs to be pasted in to the row before the word
"Fina nalega", M3 needs to be pasted in the row after "Fina nalega". The words will always be in different cells though in the same column.

M5 and M6 can always be cut and paste in the 49th and 50th row.

Collumn A needs to be colored grey until the pasted word "FINA" (M2) after that it need to be orange.

If it would be easier to program you can remove the empty rows.

I have added my actual excel file with the vba code you can ignore all tabs except "Spremni list SPODAJ".
You can press the button "Generiraj" the button makes a copy of the tab and converts its formulas in to text
and adds blank rows after the word "Fina spodrez" and before and after the word "Fina nalega"

I have unmergeged everything and used center along selection instead except for the cells in collumn M
I only umerged and unformated them ( no center acros selection).

And sorry for the mistake I've sent the wrong file it should say "Fina nalega" instead of "Fina obdelave"
in that cell inbetwen.

Also i noticed here that the generated file with the button press "Generiraj"
if i save it, an unnesecary link stays in it , When I reopen it . I am using power queery, that might be causing it?

Hello again I've improved on my design of this workbook, Though I am having difficulty running macros based on Checkboxes seems every commmand I try it doesn't work, under the worksheet
"Spremni listi SPODAJ" or "Spremni listi ZGORAJ" I got rows which need to be inserted but not always and sometimes they have to be inserted. I'd like for the user to insert the words themselvses
which was predifened before with "Fina nalega" and "Fina spodreza", but now I got named cells which can be easily edited. Mumps1 already helped me a lot. But I would need to figure out how checking the
first checkbos on the right to add the left word above the found word the second check box would add the words after and the third checkbox would add the words above and bellow.

Here is the currecnt VBA code for "Spremni listi ZGORAJ" and a new attachment was added. I would be greatful for any feedback. Also I have difficulties If I leave the named cells empty then the macro
Adds several rows which does make sense...

Sub ZGORAJ()
Application.ScreenUpdating = False
Dim lRow As Long, r As Long
Sheets("Spremni list ZGORAJ").Copy
With ActiveSheet
.UsedRange.Cells.Value = ActiveSheet.UsedRange.Cells.Value
lRow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For r = lRow To 10 Step -1
If .Cells(r, 2) = .Range("BESEDA_TRI_ZG") Then
.Cells(r + 1, 2).EntireRow.Insert Shift:=xlDown
.Cells(r, 2).EntireRow.Insert Shift:=xlDown
.Cells(r, 1) = Sheets("Spremni list ZGORAJ").Range("PRED_BESEDO_TRI_ZG")
.Range("A" & r).Resize(, 7).HorizontalAlignment = xlCenterAcrossSelection
.Range("A" & r).Font.Color = vbRed
.Range("A" & r).Font.Bold = True
.Cells(r + 2, 1) = Sheets("Spremni list ZGORAJ").Range("ZA_BESEDO_TRI_ZG")
.Range("A" & r + 2).Resize(, 7).HorizontalAlignment = xlCenterAcrossSelection
.Range("A" & r + 2).Font.Color = vbRed
.Range("A" & r + 2).Font.Bold = True
End If
If .Cells(r, 2) = .Range("BESEDA_DVA_ZG") Then
.Cells(r + 1, 2).EntireRow.Insert Shift:=xlDown
.Cells(r + 1, 1) = Sheets("Spremni list ZGORAJ").Range("ZA_BESEDO_DVA_ZG")
.Range("A" & r + 1).Resize(, 7).HorizontalAlignment = xlCenterAcrossSelection
.Range("A" & r + 1).Font.Color = vbRed
.Range("A" & r + 1).Font.Bold = True
End If
If .Cells(r, 2) = .Range("BESEDA_ENA_ZG") Then
.Cells(r, 2).EntireRow.Insert Shift:=xlDown
.Cells(r, 1) = Sheets("Spremni list ZGORAJ").Range("PRED_BESEDO_ENA_ZG")
.Range("A" & r).Resize(, 7).HorizontalAlignment = xlCenterAcrossSelection
End If
Next r
End With
Range("D7,D6,D5,A10:A49").Select
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="/", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="spod..", Replacement:="spod.,", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Application.Goto Reference:="ZG_NOGA"
Selection.Cut
Range("A50").Select
ActiveSheet.Paste
ActiveSheet.Shapes.Range(Array("Button 2")).Select
Selection.Delete
End Sub