Please modify my VBA, I want copy paste in next sheet

Hi,
I want copy A to I column data, and I need to paste in second sheet. I tried in macro recording, but my problem is my VBA only copy "A1:I10" Data,

Some times I need to copy more data, But my vba only copy first 10 cell data only. how to modify this vba?

Sub love()
'
' love Macro
'

'
    Range(Selection, Selection.End(xlDown)).Select
    Range("A1:I10").Select
    Selection.Copy
    ActiveSheet.Next.Select
    ActiveSheet.Paste
    Range("A1").Select
End Sub

Your current code copies A1:I10 and then pastes it. What is the exact range you want to copy and where in the second sheet do you want to copy it to?

Solus Rankin, your code copy only first 8 cells, see my sample excel

This should work

Sub love()
'
' love Macro
'
 Columns("A:I").Select
    Selection.Copy
    ActiveSheet.Next.Select
    ActiveSheet.Paste
    Range("A1").Select
End Sub

This should also work

	


















	
Sub love()
'
' love Macro
'
 Columns("A:I").Copy
    ActiveSheet.Next.Select
    ActiveSheet.Paste
    Range("A1").Select
End Sub


 

This should work

Sub love()
'
' love Macro
'
 Columns("A:I").Select
    Selection.Copy
    ActiveSheet.Next.Select
    ActiveSheet.Paste
    Range("A1").Select
End Sub

This should also work

[CODE]

Sub love()
Sub love()
 Columns("A:I").Copy
    ActiveSheet.Next.Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
End Sub

Hi all, see my sample file, some time my data will be more than 100 data, i give just 10 data in sample file. please., see and tell me the solution,

Maybe:

Sub vengatvj()
Sheets("Sheet1").UsedRange.Copy ActiveSheet.Next.Range("A" & Rows.count).End(3)(2)
End Sub

Hi John H.DAVIS, your formula copying whole row data to next sheet. I want copy only A TO I column data and count may be variable in any time. kindly make it only copy A to I data

Another one

Option Explicit

Sub copyme()
Dim LR&, ms As Worksheet
Application.ScreenUpdating = 0
Set ms = Sheets("Sheet2")
 With Sheets("Sheet1")
    LR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
   .Range("A1:I" & LR).Copy
   ms.Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
 End With
 Application.CutCopyMode = 0
Application.ScreenUpdating = True
End Sub

Very thank to Mumps1, AB33. Your Program working well. Thank you so much again...

Glad it worked out.