Fabio Lpz

Luis_P respondió: Aca et dejo el macro: Sub distribuir() Dim t As Long '4c7569735f50 Selection.EntireColumn.Select t = Application.WorksheetFunction.CountA(Selection) If t = 0 Then [a1].Select: Exit Sub Dim r As Range Dim c As Integer Dim f As Integer c =...