データがどのセル範囲にあるのかがこちらでは不明なので、
列見出しのコピーからB6セルからデータがあるのだろうと推測しました。

最終行lRowは　 .Cells(Rows.Count, 2)として、B列で調べています。
最終列lColは　 .Cells(6, Columns.Count)と、６行目で調べています。

以前のままだとA1セル基準で調べていたので、データがないと０になります。
また、データと関係ないことが入力されていたら、
目的のデータの最終行や最終列を求めることができません。


あと、Worksheets(3).Range("B6:J6").Copy Worksheets(2).Range("A1")　は
シート見出しの３番目のシートの列見出しを使うことになっているので、
Sh = Array("1", "2", "3", "5")
Worksheets(Sh(0)).Range("B6:J6").Copy Worksheets(2).Range("A1")
とか、シート名を使うべきと思います。

以上です。