perhaps
![]()
Sub MacroLogData() Dim wsCopy As Excel.Worksheet Dim wsPaste As Excel.Worksheet Dim rCell As Excel.Range Set wsCopy = ThisWorkbook.Sheets("Scoring (2)") Set wsPaste = ThisWorkbook.Sheets("Scoring") For Each rCell In wsCopy.Range("C2:F32") If IsNumeric(rCell.Value) Then wsPaste.Range(rCell.Address).Value = rCell.Value Next rCell End Sub
Bookmarks