VBA无法转置数据（从一个工作簿复制到已关闭的书）

Question

我正在尝试编写一个代码，该代码将从一个工作簿中复制数据并将其保存到已关闭的书中。问题是我需要从列到行转换的数据。我尝试过粘贴特价，但它们没有用。下面是我使用的代码，它至少将数据从活动工作表传输到关闭工作表。

Sub LessonLearned()

  Dim destSht As Worksheet

  Workbooks.Open Filename:="C:\Users\ceasat28\Documents\LessonsLearnedTest\LessonsLearnedLog.xlsx"
  Set destSht = ActiveWorkbook.Worksheets("DiscoveredLessons") 

  ActiveSheet.Unprotect Password:="Secret"

  With ThisWorkbook.Worksheets("Sheet1") 

    With .Range(.Range("LL_Data"), .Range("LL_Data").End(xlDown)) 

      destSht.Cells(destSht.Rows.Count, 1).End(xlUp).Offset(1).Resize(.Rows.Count, .Columns.Count).Value = .Value 

    End With

    destSht.Parent.Close True 
  End With
End Sub

有人可以帮我转换价值吗？

谢谢，塔拉