如果特定单元格具有值，则复制范围

Question

我是VBA的新手，但真的很开心。我想做的是，如果单元格E15的值大于0，则应复制范围J15：AL15。基本上，它需要对范围E15：E46中的每个单元重复相同的操作。如果E16的值是J15：AL16，则应复制以此类推。

下面的代码是我到目前为止所拥有的。即使E16或E40有值，它也仅复制范围J15：AL15。我严重错过了一些要点。

Sub Copy_Click()

Dim k As Range
Dim j As Range

For Each k In Range("E15:E46")
    Set j = Range("J15:AL15")
    If k > 0 Then
      j.Copy
    End If
Next k

End Sub

我觉得变量j出了点问题，但是找不到定义它的方法。