Copy range from Sheet1 into empty range in Sheet2

[Buddy]

I am always copying range C25 from Sheet1, however the range I am pasting
it into in Sheet 2 will be any one of these ranges.

Ranges
C58
C912
C1316
C1720
C2124
C2528
C3336
C3740
C4144
C4548
C49:C52
C53:C56
C57:C60
C61:C64
C65:C67

Can you help me add to the macro below so that it searches these ranges from
top to bottom and pastes the contents into the first empty range without
contents?

Sub FindEmptyRange()
Sheets("Sheet2").Range("C58").Value = _
Sheets("Sheet1").Range("C25).Value
Sheets("Sheet2").Activate
End Sub

For example ideally the macro will check range C58 on Sheet2 first. If
that range already has contents inside it then C912 will be checked. If
that range is empty the contents will be pasted into it, if not, the macro
will go to the next range C13:C16, and so on.

 

[Jim Cone]

Dim arrRng As Variant
Dim vItem As Variant
arrRng = Array("C58", "C912", "C1316") '>> Add the other addresses
For Each vItem In arrRng
If Application.CountA(Worksheets("Sheet2").Range(vItem)) = 0 Then
Worksheets("Sheet2").Range(vItem).Value = _
Worksheets("Sheet1").Range("C25").Value
Exit For
End If
Next
--
Jim Cone
Portland, Oregon USA





"Buddy" <[email protected]>
wrote in message
I am always copying range C25 from Sheet1, however the range I am pasting
it into in Sheet 2 will be any one of these ranges.

Ranges
C58
C912
C1316
C1720
C2124
C2528
C3336
C3740
C4144
C4548
C49:C52
C53:C56
C57:C60
C61:C64
C65:C67

Can you help me add to the macro below so that it searches these ranges from
top to bottom and pastes the contents into the first empty range without
contents?

Sub FindEmptyRange()
Sheets("Sheet2").Range("C58").Value = _
Sheets("Sheet1").Range("C25).Value
Sheets("Sheet2").Activate
End Sub

For example ideally the macro will check range C58 on Sheet2 first. If
that range already has contents inside it then C912 will be checked. If
that range is empty the contents will be pasted into it, if not, the macro
will go to the next range C13:C16, and so on.