Excel VBA - 基于单元格值在VBA中复制和粘贴循环

I am trying to come up with a macro that checks if any numeral value exists in a cell. If a numeral value exists, copy a portion of that row and paste it into another worksheet within the same spreadsheet.I am trying to come up with a macro that checks