Copy Paste visible cells only to a specific column? (subtotal-ed data)

[VBAWannabee2]

Good day!

Hi, need a little help on this one, how can I copy and paste visible cells to another column?
The data attached was subtotaled. I want to copy the values of Column E (visible only) then paste it on Column F respectively.
I'm still learning VBA and I can't execute this one. Missing the last line of my mini-code.

Sub TestCopy()

Range("E1", Range("E1").End(xlDown)).Select
selection.SpecialCells(xlCellTypeVisible).Copy

End Sub

Any help will do, thanks and cheers!

 

[Akuini]

See if this helps:

Filtered list paste special values

Looking for a little help. other platforms and google searches say this isnt possible and offer formula work-arounds. Maybe someone one here will know something i cant seem to find. I have a filtered spreadsheet where i need to copy the filtered column X (value returned via formula) and paste...

www.mrexcel.com

 

[Fluff]

How about

Sub VBAWannabee()
   Dim Rng As Range
   
   For Each Rng In Range("E2", Range("E" & Rows.Count).End(xlUp)).SpecialCells(xlVisible).Areas
      Rng.Offset(, 1).Value = Rng.Value
   Next Rng
End Sub

 

[VBAWannabee2]

See if this helps:

Filtered list paste special values

Looking for a little help. other platforms and google searches say this isnt possible and offer formula work-arounds. Maybe someone one here will know something i cant seem to find. I have a filtered spreadsheet where i need to copy the filtered column X (value returned via formula) and paste...

www.mrexcel.com

Hi @Akuini, thank you for the help but I think I'll go with Mr. Fluff. Cheers!!

 

[VBAWannabee2]

How about

Sub VBAWannabee()
   Dim Rng As Range
  
   For Each Rng In Range("E2", Range("E" & Rows.Count).End(xlUp)).SpecialCells(xlVisible).Areas
      Rng.Offset(, 1).Value = Rng.Value
   Next Rng
End Sub

Hi Mr. @Fluff ! Thanks for this one, I just changed a little bit on your code and it works perfectly. Cheers!

 

[Fluff]

You're welcome & thanks for the feedback.