Excel, VBA, NoBlankCells

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim intRow As Integer, intLastRow As Integer
   Dim txt As String
   If Target.Address <> "$E$4" Then Exit Sub
   Dim pRange As Range, pCell As Range
   Set pRange = Range("B4:B9")
   With Worksheets("Opdatering")
    For Each pCell In pRange.Cells
        If Not IsEmpty(pCell) Then
            txt = txt & pCell & ","
         End If
    Next
   End With
   txt = Left(txt, Len(txt) - 1)
   With Range("E4").Validation
      .Delete
      .Add _
         Type:=xlValidateList, _
            AlertStyle:=xlValidAlertStop, _
            Operator:=xlBetween, _
            Formula1:=txt
   End With
End Sub