Boa tarde!

Você pretende copiar uma determinada coluna de todas as guias para uma única guia?

Os dados serão colados um embaixo do outro?

Já tentou usar a pesquisa do fórum!
viewtopic.php?f=21&t=9119
https://www.google.com.br/search?q=copi ... ndo.com.br

Att

Seria isso?

Sub COPIAR()
'
' COPIAR Macro
'

Dim rng  As String

rng = Sheets("Principal").Range("H9")

    Sheets("Plan2").Select
    Range(rng).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Plan3").Select
    Range(rng).Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Plan4").Select
    Range(rng).Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Plan5").Select
    Range(rng).Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Principal").Select
    Range("A1").Select
End Sub

Perfeito gtsalikis!!!

Muito Obrigado.

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.