Copy paste with filtering condition

hi expert...

i need some code vba to copy & paste data with filtering condition....

please..see my workbook..

for your helping, thanks in advance...

john m

here my sample...

bump-bump!!!!!

Maybe:

Sub JhonMustofa()
Dim rcell As Range
For Each rcell In Range("C2:C" & Range("C" & Rows.count).End(3)(1).Row).SpecialCells(xlCellTypeVisible)
    rcell.offset(, 1).Value = rcell.Value
Next rcell
End Sub

hi JOHN H.DAVIS, it's help me....

nice answer....many thanks...

You're welcome. Glad to help out and thanks for the feedback.