Sub copyRow()
Dim ws As Worksheet
Dim lRow As Long
' define which worksheet to work on, i.e. replace Sheet1 with the name of your sheet
Set ws = ActiveWorkbook.Sheets("total")
' determine the last row with content in column A and add one
lRow = ws.Cells(Rows.Count, "C").End(xlUp).Row + 1
' copy the other cells into their ranges
ws.Range("C7").Copy ws.Range("C" & lRow)
ws.Range("d7").Copy ws.Range("D" & lRow)
ws.Range("e7").Copy ws.Range("E" & lRow)
ws.Range("f7").Copy ws.Range("F" & lRow)
ws.Range("G7").Copy ws.Range("G" & lRow)
ws.Range("H7").Copy ws.Range("H" & lRow)
ws.Range("J7").Copy ws.Range("J" & lRow)
ws.Range("K7").Copy ws.Range("K" & lRow)
ws.Range("L7").Copy ws.Range("L" & lRow)
ws.Range("M7").Copy ws.Range("M" & lRow)
ws.[A1].Select
End Sub
With Current code it's just copying cells with formula , and i don't know how to copy it as a figures without formula, can someone help me sort it out ?
Bookmarks