最終セルまでデータを反映させるマクロ

あるサイトからの利用コードです。
それをアレンジしようとしましたが、つまずきました。
マクロコードをご教示ください。

あるフォルダに複数のエクセルファイルがあります。
構成が同じシート(名前は同じ。仮に "各シート")を、
別ブック(仮に "まとめ")の一つのシートに纏めます。
その時、複数ファイルの
D4のデータだけは　"まとめ"ブックのL列に反映させたいのですが、
下記コードを使用すると、どこにどのようなコードを入れたら良いのでしょうか？

因みに複数ファイルの8行目からコピーされ、
複数ファイルのＣからM列は
まとめブックのAからK列に反映されるようになってます。
(まとめブックの1行目は見出し)

Dim i As Integer
Dim strPath As String
Dim strFileName As String
Dim WB1 As Workbook
Dim WS1 As Worksheet
Dim WS2 As Worksheet
Dim lngRowCount As Long

Set WS2 = Sheets("まとめ")
strPath = ThisWorkbook.Path
strFileName = Dir(strPath & "\*.xls*")

Do While strFileName <> ""
If strFileName <> ThisWorkbook.Name Then
Set WB1 = Workbooks.Open(strPath & "\" & strFileName)
Set WS1 = WB1.Sheets("各シート")

With WS1.Range("C7")
lngRowCount = .Worksheet.Cells(.Worksheet.Rows.Count, .Column).End(xlUp).Row - .Row
If lngRowCount >= 1 Then
With .Resize(lngRowCount, 11).Offset(1)
.Copy WS2.Range("A" & WS2.Rows.Count).End(xlUp).Offset(1)
End With
End If
End With

_____ここで　つまずく_____
　　 With WS1.Range("D4")
　　　 .Copy WS2.Range("L" & WS2.Rows.Count).End(xlUp).Offset(1)
　　　 WS2.Range("L" & WS2.Rows.Count).End(xlUp).AutoFill Destination = Range("E1048576").End(xlUp).Row
_____ここまで　つまずく_____

WB1.Close False
End If
strFileName = Dir
Loop
End Sub

エクセル2013です。 宜しくお願い致します。

No.1 ベストアンサー 回答者： sora1515 回答日時： 2014/06/02 01:51

.Copy WS2.Range("L" & WS2.Rows.Count).End(xlUp).Offset(1).Resize(lngRowCount, 1)

です。