Sub Test()
Dim ws As Worksheet
Dim sh As Worksheet
Dim lr As Long
Set ws = Sheets("Raw")
Set sh = Sheets("Var")
lr = ws.Cells(Rows.Count, 2).End(xlUp).Row
ws.Range("A1:D" & lr).Copy
sh.Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
Sub Test()
Dim ws As Worksheet
Dim sh As Worksheet
Dim lr As Long
Set ws = Sheets("Raw")
Set sh = Sheets("Var")
lr = ws.Cells(Rows.Count, 2).End(xlUp).Row - 1
ws.Range("A1:D" & lr).Copy
sh.Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
lr = ws.Cells(Rows.Count, 1).End(xlUp).Row
Sub Test()
Dim ws As Worksheet
Dim sh As Worksheet
Dim lr As Long
Set ws = Sheets("Raw")
Set sh = Sheets("Var")
lr = ws.Cells(Rows.Count, 2).End(xlUp).Row - 1
ws.Range("A1:D" & lr).Copy
sh.Range("b1").PasteSpecial xlPasteValues
lr = ws.Cells(Rows.Count, 2).End(xlUp).Row - 1
For i = 1 To lr
Range("A" & i) = i
Next i
Application.CutCopyMode = False
End Sub
Sub Test()
Dim ws As Worksheet
Dim sh As Worksheet
Dim lr As Long
Set ws = Sheets("Raw")
Set sh = Sheets("Var")
lr = ws.Cells(Rows.Count, 2).End(xlUp).Row - 1
ws.Range("A1:D" & lr).Copy
sh.Range("b1").PasteSpecial xlPasteValues
lr = sh.Cells(Rows.Count, 2).End(xlUp).Row - 1
For i = 1 To lr
sh.Range("A" & i) = i
Next i
Application.CutCopyMode = False
End Sub
Sub Test()
Dim ws As Worksheet
Dim sh As Worksheet
Dim lr As Long
Set ws = Sheets("Raw")
Set sh = Sheets("Var")
lr = ws.Cells(Rows.Count, 2).End(xlUp).Row - 1
ws.Range("A1:D" & lr).Copy
sh.Range("b1").PasteSpecial xlPasteValues
lr = sh.Cells(Rows.Count, 2).End(xlUp).Row - 1
Range("A1").Value = "S.No"
For i = 1 To lr
lr1 = sh.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
sh.Range("A" & lr1).Value = i
Next i
Application.CutCopyMode = False
End Sub
Sub hhh()
Dim ws As Worksheet
Dim sh As Worksheet
Dim lr As Long
'this will copy data from sum if order 2 to sum if order 3 tab
Set ws = Sheets("Raw")
Set sh = Sheets("Sheet1")
lr = ws.Cells(Rows.Count, 1).End(xlUp).Row
ws.Range("A2:B" & lr).Copy
sh.Range("b1").PasteSpecial xlPasteValues
lr = sh.Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To lr
sh.Range("A" & i) = i
Next i
Application.CutCopyMode = False
End Sub