Copy paste with filtering condition

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