Copy paste using offset and resize based on a range variable

[jhonty4]

Hi All, This post will help me understand the use of offset and resize hopefully. I have a range ("C8:C31") containing names and designations of employees.For first emp the name is in the range "C8" & and designation in Range"C10" and it goes on till C31 for other employees.This means that one employee has 3 rows the first row is his name and the last one is the designation. I want to copy designation of every emp and paste it into all three rows for that one employee in column D. If it is not possible with resize and offset other options will be appreciated
TIA

 

[Fluff]

How about

Sub tst()
Dim i
   For i = 8 To 29 Step 3
      Range("D" & i).Resize(3).Value = Range("C" & i).Offset(2)
   Next i
End Sub

 

[jhonty4]

Perfect !! Thanks

 

[Fluff]

Glad to help & thanks for the feedback