Copy Paste scenarios based on cell value

[deduwa]

Hi,

I have 4 tabs and need a code that can do the following (output to be pasted into Sheet1);

(Tab names are Sheet1, Manual, AA, BB)
(Sheet1 has dynamic number of rows)

1. If cell F1 in Manual = 1 then copy range A1:N15 from AA and paste this table into Sheet1 exactly 31 rows below the last cell in column E in the dynamic table

2. If cell F1 in Manual = 2 then copy range A1:N15 from BB and paste this table into Sheet1 exactly 31 rows below the last cell in column E in the dynamic table

When pasting, want to keep existing cell formatting & formulas. I

Additionally, is it possible for the code to use 'Case' so that if over time there comes a point where F1 in Manual = 3, 4, 5 etc, then it will go into a new tab call CC, DD, EE and so on?

Thanks

Ded

 

[Fluff]

How about

Sub ChooseCopy()
   Dim sht As String
   
   sht = Choose(Sheets("Manual").Range("F1"), "AA", "BB")
   Sheets(sht).Range("A1:N15").Copy Sheets("Sheet1").Range("E" & Rows.Count).End(xlUp).Offset(32, -4)
End Sub