Código:
pero que si en encuentra un valor distintp, siga copiando el valor distinto ,,, lo tengo aqui pero los valores estan definidos anteriormenteSub copiar() ' ' copiar Macro ' ' Range("B4").Select Selection.Copy Range("B5:B15").Select ActiveSheet.Paste Application.CutCopyMode = False Range("B16").Select Selection.Copy Range("B17:B29").Select ActiveSheet.Paste Application.CutCopyMode = False Range("B30").Select Selection.Copy Range("B31:B37").Select ActiveSheet.Paste Application.CutCopyMode = False Range("B38").Select Selection.Copy Range("B39:B51").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub

