Boa tarde,

eu estou a criar uma codigo para:

copiar valores na folha 1 colar valores na folha 2
(COLUNA) (LINHA)
a partir da C6 A6
C7 B6
C8 C6
C9
... .....
até ultimo valor encontrado

Eu fiz este código:

Sub CopiarCabecalho()

Sheets("Cabeçalhos").Select
Cells(6, 3).Select
Dim Ultimalinha As Long
Ultimalinha = Range("C" & Rows.Count).End(xlUp).Row

For i = 0 To Ultimalinha
Sheets("Cabeçalhos").Select
Cells(6 + i, 3).Select
Selection.Copy
Sheets("AN").Select
Cells(6, i + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 10053222
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Next i

Columns("A:V").AutoFit

End Sub

mas quando o meto a correr, copia tudo o que esta selecionado na coluna C6:c... e mais 6 colunas
ou seja na folha dois fico com mais 6 celulas preenchidas sem valores

podem ajudar?