Need some help VBA-copy and paste

[Buhocol]

Hi,

I am looking for someone to help me with a Macro-VBA for copy and paste information between sheets, as well as paste in the next available column, and finally to clear the content from the source data.

Source sheet: Data Entry
Destination sheet: Data Calculation
Same workbook

Source sheet copy I6:I101 and K6:K101
Destination sheet paste values only start in C8 first part and C111 second part.

Appreciate any help

Best,

 

[Michael M]

You could try using the Macro Recorder for simple tasks like these, but try

Sub MM1()
 With Sheets("Data Entry")
 .Range("I6:I101").Copy Sheets("Data Calculation").Range("C8")
 .Range("I6:I101").Clear
 .Range("K6:K101").Copy Sheets("Data Calculation").Range("C111")
 .Range("K6:K101").Clear
 End With
End Sub

 

[Buhocol]

I tried but it showed me error most of the time. The part I really need help is to paste the information in the next available column. Reason I would like to save data daily

Thanks, but what about if I need to paste in sheet "Data Calculation" after the next available column.

Thanks again

 

[Buhocol]

You could try using the Macro Recorder for simple tasks like these, but try

Sub MM1()
 With Sheets("Data Entry")
 .Range("I6:I101").Copy Sheets("Data Calculation").Range("C8")
 .Range("I6:I101").Clear
 .Range("K6:K101").Copy Sheets("Data Calculation").Range("C111")
 .Range("K6:K101").Clear
 End With
End Sub

Thanks

You could try using the Macro Recorder for simple tasks like these, but try

Sub MM1()
 With Sheets("Data Entry")
 .Range("I6:I101").Copy Sheets("Data Calculation").Range("C8")
 .Range("I6:I101").Clear
 .Range("K6:K101").Copy Sheets("Data Calculation").Range("C111")
 .Range("K6:K101").Clear
 End With
End Sub

I tried but it showed me error most of the time. The part I really need help is to paste the information in the next available column. Reason I would like to save data daily

Thanks, but what about if I need to paste in sheet "Data Calculation" after the next available column.

Thanks again

 

[Michael M]

This finds the last column in the "Data Calculation" Sheet

Sub MM1()
Dim lc As Integer
lc = Sheets("Data Calculation").Cells.Find("*", , xlValues, , xlByColumns, xlPrevious).Column
 With Sheets("Data Entry")
 .Range("I6:I101").Copy Sheets("Data Calculation").Cells(8, lc + 1)
 .Range("I6:I101").Clear
 .Range("K6:K101").Copy Sheets("Data Calculation").Cells(111, lc + 1)
 .Range("K6:K101").Clear
 End With
End Sub

 

[Buhocol]

This finds the last column in the "Data Calculation" Sheet

Sub MM1()
Dim lc As Integer
lc = Sheets("Data Calculation").Cells.Find("*", , xlValues, , xlByColumns, xlPrevious).Column
 With Sheets("Data Entry")
 .Range("I6:I101").Copy Sheets("Data Calculation").Cells(8, lc + 1)
 .Range("I6:I101").Clear
 .Range("K6:K101").Copy Sheets("Data Calculation").Cells(111, lc + 1)
 .Range("K6:K101").Clear
 End With
End Sub

Thanks very much. Sorry to bother you, but do you mind to add the paste as values only in the code.

best,

 

[Buhocol]

Thanks very much. Sorry to bother you, but do you mind to add the paste as values only in the code.

best,

Also, I would like to keep the formulas and clear the numbers only.