我需要复制一个excel的值并创建一个具有所需格式的新值。假设我需要将列从B11复制到BG11，行将一直到最后。（我不知道如何找到行的结尾）。我在b7到bg7中有列标题。在两者之间有不需要的行，我不需要它。所以在新的excel中我想要列标题（从b7到bg7）作为第一行，值从b11到bg11直到结束。
这是我的第一个excel Macro。我不知道该怎么办。所以通过一些stackoverflow问题和其他网站的引用，我尝试了下面的代码。但它没有提供所需的输出。
Sub newFormat()
Dim LastRow As Integer, i As Integer, erow As Integer
LastRow = ActiveSheet.Range(“B” & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
Sheets("MySheetName").Range("B7:BG7").Copy
Sheets("MySheetName").Range("B11:BG11").Copy
Workbooks.Open Filename:=”C:\Users\abcd\Documents\Newformat.xlsx”
Worksheets(“Sheet1”).Select
erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Cells(erow, 1).Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.CutCopyMode = False
End If
Next i
End Sub