Buscar Y pegado especial

Lo más probable es que estés seleccionando un rango de pegado de tamaño diferente al de copiado , o la hoja de destino está protegida.
Si no es ninguna de las 2 cosas, dejame la rutina que armaste para que la revise, o enviame tu libro a mi correo
Sdos

Hola Elsa:
Te anexo el código, en la parte de paste special es donde tengo el problema esa hoja no esta protegida
Gracias por tus atenciones.
Sub copycolumns()
'
' copycolumns Macro
' Variable Declaration
'
    Dim strColName As String
    Dim intRng As Integer
    Dim i As Integer
    Dim strVal As String
'Set a range variable to all data in selected column
Sheets("cash flow").Select
      ActiveSheet.Unprotect Password:="6504jcg"
    intRng = 14
    strColName = InputBox("INTRODUZCA EL MES A ACTUALIZAR", "Column Name") 'To Get the Column Name to Search
   'ir a la fila donde se busca el nombre de la columna 3 es la fila
    For i = 3 To intRng
       'Store the Cell Value
        strVal = Cells(3, i)
        'Check the Value with the User given column name
        If UCase(strVal) = UCase(strColName) Then
       'Select and Copy
            Cells(3, i).Select
      Range(Selection.Cells, Selection.Cells(6554).End(xlUp)).Select
            Selection.Copy
  ActiveSheet.Protect Password:="6504jcg"
  Sheets("Hoja1").Select
            Range("G8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 End If
    Next
End Sub

Colocá un pto de interrupción delante de la línea:
Range(Selection.Cells, Selection.Cells(6554).End(xlUp)).Select
> Aquí: Selection. Copy
Para observar qué rango se te ha seleccionado. Allí debe estar el problema.
Si no lo encontrás podes enviarme la hoja a mi correo para que la revise.
Sdos
Elsa