求助各位大神老师给指导做个vba自动判断循环计算语句

w439271973

想做个有Vba自动判断循环的公式，求助各位大神帮个忙，会录制简单的宏 和excel公式还行，vba就不行了，求大神帮助
表2为提前设置好的公式  表3为日常用的，根据判断B列名称并自动选择表2相对应灰色数据复制插入在下方如表3效果



Sub Macro5()
'
' Macro5 Macro
' 宏由 admihl 录制，时间: 2017/9/6
'

'加一条件语句从第二行到最后一行一行一的判断（ 当表3名称为T1时从T1的下一行（复制插入）表二（第3行至5行）
'                                               当表3名称为T2时从当前行的下一行（复制插入）表二（第7行至8行）
''                                                 当表3名称为T3时从当前行的下一行（复制插入）表二（第13行至18行）
''                                                    当表3名称为L1时从当前行的下一行（复制插入）表二（第20行至21行）
''                                                       当表3名称为U1时从当前行的下一行（复制插入）表二（第23行至25行）
''     下面是我用宏录制作的，不能自动选择，希望能有大神帮我按上面的逻辑用vba条件语句以自动处理如同表3一点计算就能自动的选择判断 。再此先谢谢各位费心了。
    Sheets("表2").Select
    ActiveWindow.SmallScroll Down:=-18
    Rows("3:5").Select
    Selection.Copy
    Sheets("表3").Select
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown
    Sheets("表2").Select
    Rows("7:11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("表3").Select
    Rows("7:7").Select
    Selection.Insert Shift:=xlDown
    Sheets("表2").Select
    Rows("13:18").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("表3").Select
    Rows("13:13").Select
    Selection.Insert Shift:=xlDown
End Sub

liulang0808

建议楼主结合附件内容，举例说明需求吧
现在的描述，结合附件看不懂

w439271973

一至没有搞懂vba,只能写出这样的，还请大神给弄弄谢谢了
if  b2=当前所在行的T1 T2 T3单元格
  从第二行开始                                       一行一行的判断
  if b2=t1 then
    从T1的下一行（复制插入）表二（第3行至5行）
    elseif b2=t2 then
    从当前行的下一行（复制插入）表二（第7行至8行）
    elseif b2=t3 then
    从当前行的下一行（复制插入）表二（第13行至18行）
    elseif b2=L1 then
    从当前行的下一行（复制插入）表二（第20行至21行）
    elseif b2=U1 then
    从当前行的下一行（复制插入）表二（第23行至25行）  
    else

    所有条件都不成立时运行的语句

    end if
end if