Dim copyrng As Range, pasterng As Range

   Dim cell As Range, i As Long

   Set copyrng = Application.InputBox("Диапазон копирования", "Запрос", Type:=8)

   Set pasterng = Application.InputBox("Диапазон вставки", "Запрос", Type:=8)

   If pasterng.SpecialCells(xlCellTypeVisible).Cells.Count <> copyrng.Cells.Count Then

       MsgBox "Диапазоны копирования и вставки разного размера!", vbCritical

       Exit Sub

   End If

   i = 1

   For Each cell In pasterng

       If cell.EntireRow.Hidden = False Then

           cell.Value = copyrng.Cells(i).Value

           i = i + 1

       End If

   Next cell

End Sub