For help, so how do you write the code-CodePudding

Everyone a great god, and I want to write data in February by vba production type in print form, do not need to show some data in February, only transfer printing production those data in the table, but I wrote to choose area is an error, ask for help, the data area is a little mess, so I choose area there is no problem, right?

 
Screening (Sub) 
Dim As k Range, arr (), ws As Worksheet 

'On the Error Resume Next 
For Each ws Worksheets In 
If the ws. Name=[k1] Then 
Arr=ws. Range (" a1 ", Cells (Rows. The Count, "ai"). The End (xlUp). Offset (0, 2)) 
BRR=ws. WorksheetFunction. Index (arr, 1, 0) 
BRR=WorksheetFunction. Transpose (BRR) 
R=ws. WorksheetFunction. Match ([a2: a39], BRR, 1) 
If r & gt; 0 Then 
[b2: h39]=WorksheetFunction. Index (arr. Zero, r) 
End the If 


End Sub