Solved Problem In Pasting In Visible Cells Only From Other Sheet

This is solution to problem.
Just click Alt+F11 then click insert and then click module
Copy below code :

Sub CopyFilteredCells()
'Updateby20150203
Dim rng1 As Range
Dim rng2 As Range
Dim InputRng As Range
Dim OutRng As Range
  xTitleId = "KutoolsforExcel"
   Set InputRng = Application.Selection
   Set InputRng = Application.InputBox("Copy Range :", xTitleId, _
                  InputRng.Address, Type:=8)
   Set OutRng = Application.InputBox("Paste Range:", xTitleId, Type:=8)
       For Each rng1 In InputRng
          rng1.Copy
         For Each rng2 In OutRng
           If rng2.EntireRow.RowHeight > 0 Then
              rng2.PasteSpecial
              Set OutRng = rng2.Offset(1).Resize(OutRng.Rows.Count)
              Exit For
           End If
         Next
       Next
  Application.CutCopyMode = False
End Sub

Then press F5 to run then it ask to copy range and then paste range.
Just click on copy what you would like to copy and then click paste range where would like to paste either visible or not

Thanks team for further clarify the problem which helped me to find the above codes.