Currently I have the following data and VBA code, where the VBA searches for the starting row which contains the current day + 1, it selects this as the start of the range and also selects the next 11 rows of data as a range and exports this data as a new csv as depicted below:
[![Current VBA Outcome](https://i.stack.imgur.com/ugIfB.png)](https://i.stack.imgur.com/ugIfB.png)
***Current Code:***

```
Sub CreateCV2()

Dim r As Variant
' Find the date in column A
r = Application.Match(CLng(Date + 1), Range("A:A"), 0)

' Only proceed if date has been found
If Not IsError(r) Then
   Dim wb As Workbook
   Set wb = Workbooks.Add()

   ThisWorkbook.Worksheets("Sheet1").Cells(r, 1).Resize(11, 3).Copy _
       Destination:=wb.Worksheets(1).Range("A1:A1")

   wb.SaveAs _
       Filename:="C:\Users\Lach\Desktop\DATA2\operational" & ".csv", _
       FileFormat:=xlCSV, _
       CreateBackup:=False
End If

End Sub

```

**My question is**, how do I modify my VBA so that instead of the result depicted in b) from the picture above, I can get the data in the following format depicted in c) below. Where the data ignores the “Day” column and doesn’t copy it across, and so it also renames and includes the column headers “GasDate” and “Gas Value GJ” as depicted in the picture below.

[![Desired New Excel Sheet Format](https://i.stack.imgur.com/BQyYZ.png)](https://i.stack.imgur.com/BQyYZ.png)