Copy & Paste as Values if criteria in another cell is met

[tigerdel]

Good afternoon experts

What I am trying to achieve is:

Sheet named Period Summary cell C11 contains the period [1, 2, 3 or 4]

I want to copy cells: H13:H26 and L15 & M15 in Period Summary
I then it to open the tab YTD Summary and paste as values as follows:

If C11 = 1 then H13:H26 paste as value in H13:H26 and L15 paste as values in H30 and M15 paste as values in H31
If C11 = 1 then H13:H26 paste as value in I13:I26 and L15 paste as values in I30 and M15 paste as values in I31
If C11 = 1 then H13:H26 paste as value in J13:J26 and L15 paste as values in J30 and M15 paste as values in J31
If C11 = 1 then H13:H26 paste as value in K13:K26 and L15 paste as values in K30 and M15 paste as values in K31

Images of the 2 sheets attached

For the life of me I can't get this to happen

Your help would be greatly appreciated

 

[VBAPyro]

you basically have this written out already
here is an example of the first item

sub pastedata

If worksheets("Period Summary").range("C11").value = 1 then 
worksheets("YTD Summary").range("H13:H26").value =  worksheets("Period Summary").range("H13:H26").value
worksheets("YTD Summary").range("H30","M15").value = worksheets("Period Summary").range("L15").value
worksheets("YTD Summary").range("H31").value = worksheets("Period Summary").range("M15").value
end if

end sub

 

[Fluff]

How about

Sub tigerdel()
   Dim YTD As Worksheet
   Dim c As Long
   
   Set YTD = Sheets("YTD Summary")
   With Sheets("Period Summary")
      c = .Range("C11") + 7
      YTD.Cells(13, c).Resize(14).Value = .Range("H13:H26").Value
      YTD.Cells(30, c).Resize(14).Value = .Range("L15").Value
      YTD.Cells(31, c).Resize(14).Value = .Range("M15").Value
   End With
End Sub