[حل شده] اصلاح یک فرمول

[amir0914]

سلام دوستان ..برای ثبت فرم در شیت دیگر پشت سر هم از فرمول زیر استفاده میکنم اما مشکل اینجاست که اولین فرم رو که ثبت میکنم دو ردیف اول خالی میندازه اما بقیش درسته با یک فرمول به شیت دیگه کپی میکنه. حالا چطوری میتونم این کد رو اصلاح کنم که فقط دو ردیف اول رو خالی نندازه اما بقیش رو به همون ترتیب فاصله بندازه. خیلی ممنون

   Dim lr As IntegerDim sh As Worksheet
Set sh = Sheets("list")
    lr = sh.Cells(sh.Rows.Count, "B").End(xlUp).Row + 2
      
Range("j12:p16").Copy Destination:=sh.Range("A" & lr)

[amir_ts]

با سلام
کد زیر رو ببینید...
از ردیف اول شروع و با فاصله دو ردیف خالی ردیف های بعدی کپی میشود

[LEFT]Sub test()
   Dim lr As Integer
   Dim sh As Worksheet
Set sh = Sheets(1)


    lr = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row + 3
       If lr = 4 Then lr = 1
Range("b4:b10").Copy Destination:=sh.Range("A" & lr)
End Sub[/LEFT]