How to generate a new form according to items in listbox

[lavender57_1014]

I'm creating a program that generate new form using userform.
So basically there are two list box, the first has all column titles and second is selected column titles. Between those two list boxes are two buttons: add and delete.
The above works fine, but I have one last step to define the button to generate new form.

The idea is that once the user clicks the button, it will generate new forms according to the selected column titles.
My logic is that find the listbox item matches to the form cell, copy the entire column below and paste to the new sheet.

The following are my code, which can't compile..

Private Sub Generator_Click()
    
    Dim my_range As Range
    SelectedC.BoundColumn = 1
        
    Dim NewForm As Worksheet
    NewForm = Worksheets.Add(After:="Database").Name = "New Form"
    
    With NewForm
        For Count = 0 To SelectedC.ListCount - 1
            With ThisWorkbook.Worksheets("Database")
                NameColumn = .Row(3).Find(SelectedC.List(i)).Column
            End With
        
            If NameColumn Is Nothing Then
                Exit Sub
            Else
                 Set my_range = ThisWorkbook.Worksheets("Database").Range(Cells(4,  NameColumn), Cells(Range("A65536").End(xlUp).Row, NameColumn))
                my_range.Copy NewForm.Range("A" & NewForm.Rows.Count).End(xlUp).Offset(1, 0)
            End If
        Next Count
    End With
   
    Unload Me
        
End Sub

// SelectedC is the 2nd list box name.

Someone help me please!

Thank you very much for your help!

[Bernie Deitrick]

If you want to create a separate sheet for each selected value, try:

Private Sub Generator_Click()

    Dim my_range As Range
    Dim NewForm As Worksheet
    Dim Count As Integer
    Dim NameColumn As Range
    Dim shtData As Worksheet

    Set shtData = ThisWorkbook.Worksheets("Database")

    For Count = 0 To SelectedC.ListCount - 1
        With shtData
            Set NameColumn = .Rows(3).Find(SelectedC.List(Count))
            If Not NameColumn Is Nothing Then
                Set NewForm = Worksheets.Add(After:=shtData).Name = SelectedC.List(Count)
                Set my_range = shtData.Range(shtData.Cells(4, NameColumn.Column), shtData.Cells(shtData.Rows.Count, NameColumn.Column).End(xlUp))
                my_range.Copy NewForm.Range("A2")
            End If
        End With
FindNext:
    Next Count

    Unload Me

End Sub

If you want all the columns on one new sheet, try

Private Sub Generator_Click()

    Dim my_range As Range
    Dim NewForm As Worksheet
    Dim Count As Integer
    Dim NameColumn As Range
    Dim shtData As Worksheet

    Set shtData = ThisWorkbook.Worksheets("Database")
    Set NewForm = Worksheets.Add(After:=shtData).Name = "New Form"

    For Count = 0 To SelectedC.ListCount - 1
        With shtData
            Set NameColumn = .Rows(3).Find(SelectedC.List(Count))
            If Not NameColumn Is Nothing Then
                Set my_range = shtData.Range(shtData.Cells(4, NameColumn.Column), shtData.Cells(shtData.Rows.Count, NameColumn).End(xlUp))
                my_range.Copy NewForm.Cells(2, Count + 1)
            End If
        End With
FindNext:
    Next Count

    Unload Me

End Sub