Find last data and perform insert column

[emina002]

Hi I just want to know how to perform insert column if the macro found the last cell with data in row 2, I got a piece of code already to find the last data in a cell and then after that I don't how to continue this, the logic is to insert new column. Hope you can help me with my code thanks a lot!

Sub inscol()

Range("B1").End(xlToRight).Select
ActiveCell.Columns.Insert xlRight

End Sub