Auto adjusting macros to new workmap name.

Hi
Im currently working with a macro that switches between workbooks. The name of the original worbook is in the code. Is there a possibility to auto adjust this name in the code when i save this workbook under a different name?
the problem is in the last line of the example below. Maybe i need a different aproach to this situation?

Sheets("kostblad").Select
Range("A8:K8").Select
Selection.Copy
Workbooks.Open Filename:="C:\Users\Yannick\Desktop\Planning Blanco.xlsx"
Sheets("voorbereiden").Select
Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
[a1].Select
Workbooks("CAD-CAM X-- 3 lagen blanco NIEUW.xlsm").Activate

Thanks in advance for any help.

I think I found a way, not sure if this is the best solution..
Dim workbookname As Variant
workbookname = ActiveWorkbook.Name
Sheets("kostblad").Select
Range("A8:K8").Select
Selection.Copy
Workbooks.Open Filename:="C:\Users\Yannick\Desktop\Planning Blanco.xlsx"
Sheets("voorbereiden").Select
Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
[a1].Select
Workbooks(workbookname).Activate

any advice is still welcome