Hello some_evil

Please note this line searches for the Header column:
lcollfill = Range("1:1").Find("FillColumn").Column 'Header row assumed 1
Please adjust the bold part to suit the search word. I took it from your sample posted at post #1. Also note that I have assumed Your Headers will be in Row of Excel.

lLastRow part does not look at "Fill Column" placement. It finds out the overall last data filled row.

Please test the code after making above changes and post back if you face issues.