Copy cells if condition is met

[Quasar Hunter]

Hi everyone,

I have 3 tables on the same sheet Table 1 (A4:E23), Table 2 (J5:M19) and Table 3 (J21:M35).
I want to copy data from Table 1 in columns B,C,D,E to first empty row in
table 2 if the value in column A is "TK2", and copy to table 3 if value is "TK3".

Thanks!

 

[maabadi]

If your tables have headers then Try this:

Sub CopyBetweenTables()
Dim Lr1 As Long, Lr2 As Long

For i = 4 To 23
Lr1 = Range("J19").End(xlUp).Row + 1
Lr2 = Range("J35").End(xlUp).Row + 1
If Cells(i, 1).Value = "TK2" Then
Range("J" & Lr1 & ":M" & Lr1).Value = Range("B" & i & ":E" & i).Value
ElseIf Cells(i, 1).Value = "TK3" Then
Range("J" & Lr2 & ":M" & Lr2).Value = Range("B" & i & ":E" & i).Value
End If
Next i
End Sub

 

[Quasar Hunter]

That works, tyvm

 

[maabadi]

You're Welcome & Thanks for feedback.