Copying data into a worksheet when the destination has hidden rows

Here's a simplified version of my problem. I’m using a macro to copy a range of doctor's names in A1:A10 to multiple other worksheets. Some of the worksheets I’m pasting into have hidden rows, so not all of the 10 pasted names are visible. For example, when I paste the 10 names into worksheet 2 which has rows 3 and 4 hidden, doctor 3 and doctor 4 aren't visible. Here's some code:

Sub Macro1()    Range("A1:A10").Copy    Sheets("2").Select    Range("A1").Select    ActiveSheet.Paste    Sheets("3").Select    Range("A1").Select    ActiveSheet.Paste    Application.CutCopyMode = FalseEnd Sub

Here's what worksheet 2 looks like after the paste:

This image shows how doctor 3 and doctor 4 are not visible

I need the macro to skip the hidden rows when the 10 names get pasted so that they all are visible. I haven't been able to find an answer anywhere. Thanks.