我在同一个目录中有来自不同工作簿的数据，我想将其复制到我的工作表中。不幸的是，它出现在每第五行之后。事实上，我想从第5行开始，但我想稍后将它们逐行放置。

的数据
这段代码发生在我身上：
SubCopyDataFromWorkbooks（）

Dim wbSource As Workbook
Dim shTarget As Worksheet
Dim shSource As Worksheet
Dim strfile As String
Dim strFilePath As String
Dim strPath As String

Set shTarget = ThisWorkbook.Sheets("CPP Summary")
strPath = GetPath

If Not strPath = vbNullString Then

strfile = Dir$(strPath & "*.xls", vbNormal)

Do While Not strfile = vbNullString

Set wbSource = Workbooks.Open(strPath & strfile)
Set shSource = wbSource.Sheets("Info for CPP")

Call CopyData(shSource, shTarget)

 wbSource.Close False
 strfile = Dir$()
 Loop
 End If

 End Sub

 Sub CopyData(ByRef shSource As Worksheet, shTarget As Worksheet)

 Const VHead As String = "B1:B4"
Const VMBom As String = "B8:B25"

Dim glrow As Long

glrow = shTarget.Cells(Rows.Count, "A").End(xlUp).Offset(5).Row

shSource.Range(VHead).Copy

With shTarget.Range("A" & glrow)
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
.PasteSpecial Transpose:=True
End With

字符串
有没有办法把这些结果一行一行地放好？