exel

[pablobaez]

hola a todos quieo hacer una macro que me copie celdas

Código:

Sub 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

pero que si en encuentra un valor distintp, siga copiando el valor distinto ,,, lo tengo aqui pero los valores estan definidos anteriormente