Adding a VBA Command Button with its respective code is not ... ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule .insertlines .CountOfLines + 1, Code End With End Sub Sub Tester() ...

As a result, the VBA codes prevent the portability of your workbook from ... columnNumber).End(xlUp).Row ' Display the result MsgBox "The last non-empty row in column " & columnNumber & " is: " & ...