Actually, the code won't be 'flawless' just yet - you need to change:
strFile = Dir()
Wend
wdApp.Quit
With xlWkSht
.Cells(LRow + 1, 1).Value = .Cells(LRow, 6).Value
.Cells(LRow, 6).Value = .Cells(LRow, 5).Value
.Cells(LRow, 5).Value = .Cells(LRow, 4).Value
.Cells(LRow, 4).Value = .Cells(LRow, 7).Value
.Cells(LRow + 1, 5).Value = .Cells(LRow, 10).Value
.Cells(LRow, 10).Value = vbNullString
.Cells(LRow + 1, 6).Value = .Cells(LRow, 11).Value
.Cells(LRow, 11).Value = vbNullString
.Range("G1:K1").EntireColumn.Delete
.Range("B1:B" & LRow).Value = .Range("B1:K" & LRow).Value
.Range("A1:H1").EntireColumn.AutoFit
End With
to:
With xlWkSht
.Cells(LRow + 1, 1).Value = .Cells(LRow, 6).Value
.Cells(LRow, 6).Value = .Cells(LRow, 5).Value
.Cells(LRow, 5).Value = .Cells(LRow, 4).Value
.Cells(LRow, 4).Value = .Cells(LRow, 7).Value
.Cells(LRow + 1, 5).Value = .Cells(LRow, 10).Value
.Cells(LRow, 10).Value = vbNullString
.Cells(LRow + 1, 6).Value = .Cells(LRow, 11).Value
.Cells(LRow, 11).Value = vbNullString
.Range("G1:K1").EntireColumn.Delete
.Range("B1:B" & LRow).Value = .Range("B1:K" & LRow).Value
.Range("A1:H1").EntireColumn.AutoFit
End With
LRow = LRow + 1
strFile = Dir()
Wend
wdApp.Quit