Hi Gaura215,

The below piece of command may be solve your problem

dim i as double, wks as worksheet
i = wks.Cells(Rows.Count, "b").End(xlUp).Row
wks.Range("a1:a" & i).Value = Application.ActiveWorkbook.Path & "\" & ActiveWorkbook.Name