Adriel Ortiz Mangia respondió:
H o l a prueba esto Sub Combina_fila() '//Por.Adriel Ortiz Application.DisplayAlerts = False For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Range("A" & i & ":G" & i).Merge Range("A" & i & ":G" & i).HorizontalAlignment = xlCenter ' Range("H" & i &...