Option Explicit
Sub PasteToUnHiddenCells()
Dim Clls As Range, Rng As Range, Sh As Worksheet, Cls As Range, Rg0 As Range
Dim eRw As Long, jJ As Long
Set Sh = ThisWorkbook.Worksheets("CanDan")
Sheets("NoiDungCopy").Select
eRw = Sh.Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set Clls = Selection.Cells(1).Resize(Selection.Rows.Count)
For Each Cls In Sh.[A2].Resize(eRw)
If Cls.Height > 0 Then
jJ = jJ + 1
' MsgBox Clls.Cells(jJ, 1).Value '
Cls.Resize(, 2).Value = Clls.Cells(jJ).Resize(, 2).Value
End If
Next Cls
End Sub
