忽略每个VBA中的空单元格

I am having a problem with my loop(i go throu columns in every worksheet and copy them common column ) in VBA. And I wan't to ignore empty cells... any ideas? Bellow is my code I am having a problem with my loop(i go throu c