Thank you Collin that was exactly what I was looking for. I tried your code and it works perfect. I still have some questions since I really want to learn more about VBA.
Code:
lNextRow = wksDb.Cells(wksDb.Rows.Count, rngRisk.Column).End(xlUp).Offset(1, 0).Row
I understand how the rest of the code works except the line above, to be more specific (wksDb.Rows.Count, rngRisk.Column).End
How come i don't need to add the rest of the ranges(problem and status)?