Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case "MOL2"
UserForm2.ListBox1.RowSource = "_MOL2"

Case "MOL1"
UserForm2.ListBox1.RowSource = "_MOL1"

End Select
End Sub

Private Sub ComboBox2_Change()
Select Case ComboBox2.Value
Case "MOL2"
UserForm2.ListBox2.RowSource = "_MOL2"

Case "MOL1"
UserForm2.ListBox2.RowSource = "_MOL1"

End Select
End Sub


Private Sub UserForm_Initialize()

ComboBox1.List = Array("MOL2", "MOL1")
ComboBox2.List = Array("MOL2", "MOL1")

End Sub

Private Sub ToLeftButton_Click()
    With ListBox2
        Dim itemIndex As Integer
        For itemIndex = .ListCount - 1 To 0 Step -1
            If .Selected(itemIndex) Then
                ListBox1.AddItem .List(itemIndex)
                .RemoveItem itemIndex
                .MultiSelect = fmMultiSelectExtended
            End If
        Next itemIndex
    End With
End Sub



Private Sub ToRightButton_Click()
    With ListBox1
        Dim itemIndex As Integer
        For itemIndex = .ListCount - 1 To 0 Step -1
            If .Selected(itemIndex) Then
                ListBox2.AddItem .List(itemIndex)
                .RemoveItem itemIndex
                .MultiSelect = fmMultiSelectExtended
            End If
        Next itemIndex
    End With
End Sub

Sub AddLocation ()

Dim Location As String

For i = 3 To 13
     
    Location = Worksheets("Praemisen").Cells(i, 2)
    
    Sheets("Combined").Range("A2:I2" & LastRowColumnA).Autofilter Field:=2, Criteria1:=Location
    Range("A3:C" & LastRowColumnA).SpecialCells(xlCellTypeVisible).Copy
    
             'copy to Temp
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = "Temp"
    Sheets("Temp").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   ....
  Next i