Autofill Column B based on Column A entries

I have a Listbox that outputs data to Column A. Is there a way to auto populate Column B with 4 items for each Entry in Column A? The 4 items that will populate in Column B will always be the same.

I have attached an example to better explain what I am trying to describe.

Thanks.

Excerpt from the forum rules "tips" section:

"If you want help with Excel, post an Excel file, not a picture, Word file, PDF, or text file. Nobody's anxious to type data from a picture into a spreadsheet as a prelude to helping. To attach a file, [click GO ADVANCED if necessary] push the button with the paperclip (or scroll down to the Manage Attachments button), browse to the required file, and then push the Upload button."

Are you trying to get your POPULATE button to do more?

Since all we have to go on is what is in the lists page so far, mockup some sample "results" in your sheet of what you WANT to happen when you select 3 or 4 entities. Make sure your sample shows exactly what you want, and if it's not clear where the information you mocked up came from, explain it.

I think I might have figured out what you want. Try changing these macros:

Private Sub CommandButton1_Click()
Dim iListCount As Integer, iColCount As Integer
Dim iRow As Integer, r As Long

r = 11
 
For iListCount = 0 To ListBox1.ListCount - 1
   If ListBox1.Selected(iListCount) = True Then
      ListBox1.Selected(iListCount) = False
      iRow = iRow + 1
     
        For iColCount = 0 To Range("Entities").Columns.Count - 1
     
       Range("A" & r).Value = ListBox1.List(iListCount, iColCount)
       Range("Products").Copy Range("B" & r)
       r = Range("B" & Rows.Count).End(xlUp).Row + 1
      Next iColCount
   End If
Next iListCount

Set rStartCell = Nothing
Columns("B").AutoFit
End Sub



Private Sub CommandButton3_Click()
    ActiveSheet.Range("A11:B" & Rows.Count).Clear
End Sub

I've added a box to your form where you can enter how many products out of the product list you want to be listed.

Private Sub CommandButton1_Click()
Dim iListCount As Integer, iColCount As Integer
Dim iRow As Integer, r As Long
Dim Products, i As Long, p As Long

r = 11
Set Products = Range("Products")

If TextBox1.Value <> "" Then
    p = TextBox1.Value + 0
Else
    p = Products.Cells.Count
End If

For iListCount = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(iListCount) = True Then
        ListBox1.Selected(iListCount) = False
        iRow = iRow + 1
         
        For iColCount = 0 To Range("Entities").Columns.Count - 1
            Range("A" & r).Value = ListBox1.List(iListCount, iColCount)
            For i = 1 To p
                    Range("B" & r + i - 1) = Products(i - 1)
            Next i
           r = Range("B" & Rows.Count).End(xlUp).Row + 1
        Next iColCount
   End If
Next iListCount

Columns("B").AutoFit
End Sub