I tried this code to copy the data from the sheet1 to "bills" sheet
it must starts copy in the third row in the "bills" sheet. but it starts form another row and every time I delet the data in "bills" sheet it starts from the new row. Take a look to the example I uploaded. How to fix this problem?
Code:Dim myRange1 As Range, myRange2 As Range, myRange3 As Range, myRange4 As Range Dim myRange5 As Range, myRange6 As Range, myRange7 As Range, myRange8 As Range Dim myRange9 As Range, myRange10 As Range, myRange11 As Range, myRange12 As Range Dim j As Integer Set myRange1 = Sheets(1).Range("A24:A1000") Set myRange2 = Sheets(1).Range("B24:B100") Set myRange3 = Sheets(1).Range("C24:A1000") Set myRange4 = Sheets(1).Range("D24:B100") Set myRange5 = Sheets(1).Range("E24:A1000") Set myRange6 = Sheets(1).Range("F24:B100") Set myRange7 = Sheets(1).Range("G24:A1000") Set myRange8 = Sheets(1).Range("H24:B100") Set myRange9 = Sheets(1).Range("I24:A1000") Set myRange10 = Sheets(1).Range("J24:B100") Set myRange11 = Sheets(1).Range("K24:A1000") Set myRange12 = Sheets(1).Range("L24:B100") j = Sheets("Bills").UsedRange.Rows.Count + 1 + Sheets("Bills").UsedRange.Row myRange1.Copy Sheets("Bills").Range("a" & j) myRange2.Copy Sheets("Bills").Range("b" & j) myRange3.Copy Sheets("Bills").Range("c" & j) myRange4.Copy Sheets("Bills").Range("d" & j) myRange5.Copy Sheets("Bills").Range("e" & j) myRange6.Copy Sheets("Bills").Range("f" & j) myRange7.Copy Sheets("Bills").Range("g" & j) myRange8.Copy Sheets("Bills").Range("h" & j) myRange9.Copy Sheets("Bills").Range("i" & j) myRange10.Copy Sheets("Bills").Range("j" & j) myRange11.Copy Sheets("Bills").Range("k" & j) myRange12.Copy Sheets("Bills").Range("l" & j)




Reply With Quote