I am really sorry, not able to express it correctly.
I had made a macro set a vairable in 2 cells(A1 & A2) and used this vairbale in my code.
But when i execute, it only paste A1 value from the variable. My code below and need result as below
A = Worksheets("Data").Range("K2:K3")
B = Worksheets("Data").Range("K4:K5")
LR = Range("J" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For Each Rng In Range("C1:C" & LR)
If Rng.Offset(0, 7).Value = "Invoice" Then
Rng.Value = A 'Replace "Variable A" with your variable
ElseIf Rng.Offset(0, 7).Value = "Credit" Then
Rng.Value = B 'Replace "Variable B" with your variable
Application.ScreenUpdating = True