Macro to select each item in multiple data validation lis and copy ranges to another sheet

Hi,

Please refer the below link, and I want the same macro with one additional requirements, i.e: The below macro is to select list in K3 and copy ranges(K5:K10) to sheet2. In this I want to select list in K3 & K4(may be so on) and copy the specified ranges to destination sheet.

In K4: Validation list is say for example 7,8,9

http://www.ozgrid.com/forum/showthread.php?t=160513

Sub Dval()
Dim a, i As Long
a = Split(Range("K3").Validation.Formula1, ",")
For i = 0 To UBound(a)
    Range("K3").Value = Trim(a(i))
    Range("K5:K10").Copy Destination:=Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1)
Next i
End Sub

Thanks,
Chinraj