I have a spreadsheet that contains a lot of data in Sheet1, and I have a userform with two listboxes. the first listbox pulls in the column headings from Sheet1. the user can then choose which info to do something with, and move them to the second listbox. When the user clicks the ok button, I am creating a new worksheet and trying to match the column headings from the second listbox with their corresponding data and put the columns of data, including heading, in the new worksheet. Here is the code I have so far:
Private Sub OKButton_Click()

    Dim intLbxIndex As Integer    'ListBox (Lbx) index number
    Dim rngCell As Range
    Dim rngDigData As Range
    Dim iColumn As Long
   
    'add worksheet for digital data to be plotted and copy cycles to it
    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Dig_Plot_Work"
    Sheet1.Select
    Sheet1.Range("A1", Range("A" & Rows.Count).End(xlUp)).Copy Sheets("Dig_Plot_Work").Range("A1")

    'add data from listbox to new worksheet
    For intLbxIndex = 0 To ListBox2.ListCount - 1
        For Each rngCell In Sheet1.Range("A1").CurrentRegion
            If (CStr(rngCell.Value) = CStr(ListBox2.List(intLbxIndex))) Then
                iColumn = rngCell.Column
                Set rngDigData = Range(Sheet1.Cells(2, iColumn), Sheet1.Cells(Sheet1.Cells(Sheet1.Rows.Count, iColumn).End(xlUp).Row, iColumn))
                'copy or transfer rngDigData data to "Dig_Plot_Work" sheet columns, starting with "B1"
            End If
        Next rngCell
    Next intLbxIndex

    Unload Me
End Sub
Can anyone help me with how I would go about actually getting the data to the new worksheet, "Dig_Plot_Work"? is my code that far off? I was thinking I may have everything except for the code that goes after Set rngDigData. I already have the code to plot the info once I get the data to the new worksheet. Thanks in advance for your help!