Fill a number of Merged cells with a Picture

Hi all,
I have a workbook that consists of 12 sheets, one for every month of the year. I want the user to be able to place a picture into a group of merged cells (W3 to Z10) in the January sheet. I found the following code, written by moonsaga on the forum. It works great but only puts the picture in the cell W3.

Sub InsertPicture()
Dim sPicture As String, pic As Picture
sPicture = Application.GetOpenFilename _
    ("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
     , "Select Picture to Import")
 
If sPicture = "False" Then Exit Sub

Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
    .ShapeRange.LockAspectRatio = msoFalse
    .Height = ActiveCell.Height
    .Width = ActiveCell.Width
    .Top = ActiveCell.Top
    .Left = ActiveCell.Left
    .Placement = xlMoveAndSize
End With
Set pic = Nothing
 
End Sub

I am new to VBA and don't even know what I want can be done.

Any advise would be appreciated.

Thanks.